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I. BACKGROUND 


"The (non-disability retirement) plan proposed 1s basically 
a penalty provision for early, voluntary retirement.” 
Wilham Francis, Asst. SECDLF CMP,R), 1958 
"The non-disability retirement system 1s inefficient, 
inequitable, and costly.” 
The Interagency Committee, 1971 
"Military retirement. ..18 a key issue that has to be faced. 
The stakes are high; the financial consequences are potentially 
greater than those involved in the major debates over force 
levels and weapon systems.” 
Martin Binkin, The Military Pay Muddle, 1975 
"The military retirement system is wasteful in dollars and 
human resources.” 


The President's Commission on 
Military Compensation, 1978 


"There probably is no other retirement system which 1s as 
liberal and costly as the U.S. Military Retirement System.” 
Grace Commission, 1984 
77. (the military retirement system). . .1s a scandal; it’s 


an outrage." 
David Stockman, Budget Director, OMB, 1985 


A. INTRODUCTION 

As the above comments indicate, the military retirement system has had its share 
of critics over the years. Most of the criticisms leveled at the military retirement 
system stem from a few basic arguments: (1) non-disability retirement allows mulitary 
personnel to retire at too early of an age; (2) retirement benefits (annuities) are too 
liberal; (3) lack of vesting until 20 years of service makes superiors reluctant to 
involuntary separate marginal or poor performers who are close to retirement; and, by 


far, the strongest criticism, (4) the military retirement system just costs too much. 


The present military retirement svstem allows a service member to receive a non- 
disability retirement after 20 years of active duty service with a retirement annuitv of 
3075 of the service member's final basic pay (or the average of the highest three years 
for those joining the Service after September 8, 1980). This annuity increases with 
additional active duty service so that a retiree with 30 years or more of service will 
receive 75% of basic pay. Provisions are also made for disability and reserve 
retirement, as well as an optional survivor benefit plan. 

The costs of this retirement system have become a major issue. In the ten years 
from 1973 to 1983, the number of retirees paid by the Department of Defense (DoD) 
increased 43% from 935,272 to 1,333,360 individuals. However, for this same period of 
time, DoD expenditures for the military retirement system grew 263% from $4.4 
billion to $15.9 billion. Looking back over the last thirty years from 1953, costs have 
increased almost 4,400% from $356 million while the number of military personnel 
receiving retired pay has increased only about 800% from 155,892. Retirement costs, 
then, have grown at approximately 5 to 6 times faster than the retirement rolls. 
Military retirement. costs currently account for approximately 8% of the defense 
budget. 

As the costs have increased, the military retirement system (specifically, the non- 
disability retirement portion which accounts for over eighty percent of the cost) has 
come under closer and closer Congressional, public, and media scrutiny. To reduce 
costs, proposals have been made, inter alia, to lower annuities, extend the minimum 
length of service required for retirement, and delay the commencement of retired pay 
until 55, 60, or 62 years of age. The question arises, however, if the (proposes 
modifications to the military retirement system will produce the desired results. Will 


costs, in fact, be reduced? What effect will reducing non-disability retirement benefits 
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have on new accessions and retention, on recruiting and training costs? To what 
extent is the retirement system used as a force mangement tool? 

This thesis attempts to deal with these issues. In order to provide an 
understanding of how the current retirement system came to be established, this first 
chapter contains a review of the legislation that has affected military retirement. 
Additionally, the recommendations of previous commissions, review panels, and study 
groups that have dealt with military retirement issues are briefly examined. Subsequent 
chapters deal more extensively with the provisions of the current retirement system and 
the costs of its component parts. Finally, a computer model used to project future 


retirement costs is presented and discussed. 


Pee LEGISLATIVE HISTORY OF THE MILITARY RETIREMENT SYSTEM 

The beginnings of the military retirement system in the United States date back 
some three hundred and fifty years. In 1636, the Pilgrims at Plymouth Rock provided 
that any soldier becoming disabled would be maintained by the colony for the rest of 
his life [Ref. 1: p. VII-1]. 

The first national pension law was enacted in 1776 and provided half pay for life 
(or, for the duration of the disability) for disabled soldiers. Immediately after the 
Revolutionary War and again in 1790, legislation was passed making provisions for 
disabled military personnel: officers could receive up to one-half of their pay, while 
enlisted personnel could receive up to $5 a month for life. Benefits were increased for 
disabled Revolutionary War veterans in 1818 and again in 1832. [Ref. 1: p. VII-1] 

In 1855, legislation was passed which permitted the Secretary of the Navy to 
determine the fitness of officers and allowed the removal of those officers judged 
incapable. Those determined to be incapable were removed from active duty with 


either leave-of-absence pay (approximately 75% of sea-duty pay) or furlough pay (50% 


of leave-of-absence pay). Though the main purpose of this legislation was to remove 
old and physically unfit Naval officers from active duty, the law could also be used to 
separate officers for non-disability reasons. [Refs. 1,2: p. VII-1,p. 145] 

The first major non-disability legislation was enacted in 1861 at the beginning of 
the Civil War. This act provided for the voluntary retirement (at the discretion of the 
President) of regular officers of all branches of the military service after 40 years of 
active duty. The purpose of this legislation was to allow older officers, unfit for duty in 
the Civil War, to retire. Later legislation in 1861 and 1862 authorized involuntary 
retirement, i.e., an officer could be forced to retire upon reaching a certain ара 
years-in-service point. However, nothing in the legislation compelled authorities to 
take such actions. [Refs. 1,2: p. VII-2,p. 145] 

After the Civil War, while reducing military forces to a peacetime level, Congress 
passed legislation in 1870 which established two lasting precedents for the military 
retirement system: (1) Army and Marine Corps officers were permitted to voluntary 
retire after 30 years of service (YOS) (upon approval of the President), and (2) 
retirement pay was set at 75% of the officer’s final pay. (Though the 75% pay 
provision applied to Army and Marine Corps officers only, subsequent legislation in 
1873 included Naval officers). Enlisted personnel were covered by legislation that was 
enacted in 1885, 1899, and 1907. The benefits that were provided closely followed 
those for officers, i.e., voluntary retirement after 30 years of service and 75% of final 
pav. Legislation in 1908 authorized the voluntary retirement of Navy officers after 30 
years of service. [Refs. 1,2: p. VII-2,p. 146] 

[n 1916, legislation was again passed that had long-lasting effects on the military 
retirement svstem. Due to promotion stagnation in the officer ranks of the Navy as a 


result of World War I, selection boards were established for promotion to Commander, 


Captain, and Rear Admiral on the basis of age-in-grade. Lieutenant commanders, 
commanders, and captains who reached age 45, 50, and 56, respectively, without being 
selected for promotion, became ineligible for further consideration and had to be 
retired. An officer so retired was entitled to retired pay of 2.5% of basic pay for each 
year of service, up to a maximum of 75% of pay. Thus, the “up-or-out” officer 
selection process was established. Also included in this legislation was the creation of 
the Fleet Naval Reserve for Navy and Marine Corps enlisted personnel. The purpose 
of this was to create a pool of experienced personnel who could be recalled to active 
duty in an emergency. Though “transferring” to the Fleet Reserve was technically 
different than “retiring”, it basically allowed enlisted personnel to leave the Navy and 
Marine Corps with as little as 16 years of service (later raised to 20 YOS in 1925) and 
"retire" with "retainer" pay. [Refs. 1,2: p. VII-3,pp. 147 & 150] 

After World War I, the Navy was again having officer stagnation promotion 
problems. As a result, legislation was passed which: (1) replaced the age-in-grade 
program with one based on service-in-grade for for grades Commander through 
Captain, with break points of 21, 25, and 35 years, respectively (passed in 1926); (2) 
extended the selection boards for promotion to Lieutenant and Lieutenant Commander 
(passed in 1934); and (3) provided for voluntary retirement of Naval officers after 20 
years of commissioned service, at the discretion of the President (passed in 1938). 
[Refs. 1,2: p. VII-4,p. 14$] 

Legislation passed after World War II brought standardization to the military 
retirement provisions of the various branches of the Service. In 1945, voluntary 
retirement after 20 years of service was authorized for Army enlisted personnel. In 


1946, legislation was enacted which permitted Navy and Marine Corps officers to 


voluntarily retire after 20 years of active service | (including at least 10 years of 
commissioned service). Finally, Army and Air Force officers were authorized voluntary 
retirement after 20 years of active service (including 10 years of commissioned service) 
in 1948. Also during this period, the "up-or-out" officer selection/promotion process 
was standardized (1947). [Refs. 1,2: p. VII-6,pp. 148-150] 

During the 1950's through 1970's, the military retirement system remained 
relatively unchanged. Provisions for a specific retirement system for warrant officers 
were passed in 1954. Legislation was passed in 1958, 1963, 1975, and 1976 that made 
changes in the method of recomputing retirement pay for cost-of-living adjustments. 

The early 1980's followed the trend of the last thirty years. Legislation enacted 
in 1980, 1981, 1982, and 1983 all dealt with adjustments to retirement pay: retired pay 
was to be adjusted onlv once a year and tied to Civil Service increases (passed in 1980); 
final basic pay was replaced by "retainer" pay (which was the average of the last 3 
vears of basic pay) as the basis for retirement annuities (passed in 1980); an annual 
adjustment based on the percentage increase in the Consumer Price Index (CPI) was 
established (passed in 1981); a three-vear “ceiling” was placed on CPI adjustments for 
fiscal years 1983-19852 (passed in 1982); and the “one-year look-back” save pay 
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feature" was repealed (passed in 1983). Table I provides a summary of the legislation 


that has been discussed. [Refs. 1,2: pp. VII-7 & VII-8,p. 149] 


Тре legislation passed in 1938 allowed Naval officers to retire after 20 years of 
commissioned service, while the legislation passed in 1946 allowed Navy and Marine 
Corps officers to retire with 20 years of total active service, only 10 years of which were 
required to be commissioned service. 


?CPIs of 3.3, 3.6, and 3.3 percent, were set for FY83-F Y8), respectively. 


~The save pay feature allowed a service member to "look back” one preceding 
basic pay scale to compute retired pay, increased by any retired pay adjustments that 
occurred in the interim. This method was advantageous when the rate of retired pay 
adjustments exceeded increases to basic pay. 
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DATE 


1855 


1861 


1861 


1862 


1870 


1878 


1882 


1885 


1899 


1907 


1908 


1916 


1916 


1920 


TABLE I 
SUMMARY OF MILITARY RETIREMENT LEGISLATION 


ACTION 


Authorized involuntary removal of Navy officers from active list for 
disability and other reasons. 


Authorized voluntary retirement of officers of all Services after 40 
years of service, at the discretion of the President. 


Permitted involuntary retirement of Navy officers after 45 years of 
service or at age 62. 


Permitted involuntary retirement of Army and Marine Corps officers after 
45 years or at age 62. 


Authorized voluntary retirement of Army and Marine Corps officers after 
30 years of service, at the discretion of the President. Retirement pay 
for Army and Marine Corps officers was set at 754 of final pay and at 
507 for Navy officers. 


Raised the Navy officer retirement rate to 757 of sea duty pay. 


Made retirement mandatory at age 64 for officers of all Services. Also 
gave officers a nondiscretionary right to voluntary retirement after 40 
years of service. (Earlier law had authorized voluntary retirement, but 
had given the President the power to grant or deny such a retirement.) 


Authorized voluntary retirement of Army and Marine Corps enlisted 
personnel after 30 years of service. Retired pay was set at 75% of a 
member's pay; plus an allowance in lieu of quarters, fuel, and light. 


Authorized voluntary retirement of Navy enlisted personnel after 30 
years of service. Established the "promotion flow" retirement program 
for Navy officers. 


Consolidated the 30-year voluntary retirement authority for the enlisted 
personnel of all branches of the Services into one status. 


Authorized voluntary retirement of Navy officers after 30 years of 
service. 


Created Fleet Reserve. Authorized voluntary transfer of Navy and Marine 
Corps enlisted personnel to Fleet Reserve after 16 years of active 
service. 


Established  "up-or-out" promotion system based on age-in-grade and 
integrated involuntary retirement system. First to use "standard" 
retired pay formula of 2.57 times years-of-service, up to maximum of 
754. 


Provided for classification of Army officers and authorized involuntary 


retirement of those designated "Class В" (1.е., inefficient 
performance ). 
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TABLE I 


SUMMARY OF MILITARY RETIREMENT LEGISLATION (cont’‘d.) 


DATE 


1922 


1925 


1926 


1934 


1935 


1938 


1945 


1946 


1947 


1947 


1948 


1954 


ACTION 


Authorized involuntary retirement of Army officers chosen for 
elimination from active list by board officers. 


Raised minimum length-of-service required by Navy and Marine Corps 
enlisted personnel for eligibility for transfer to Fleet Reserve from 16 
to 20 years. 


Changed integrated Navy officer promotion/involuntary retirement system 
from age-in-grade to service-in-grade program. 


Made Marine Corps officers subject to Navy rather than Army retirement 
laws. Brought them under Navy's promotion/involuntary retirement system. 
Extended the Navy's officer selection program to promotion to 0-4 and 
0-5. 


Authorized voluntary retirement of Army officers after 15 years of 
active service. 


Revised the Navy's officer selection and retirement processes. 0-4's to 
0-6's who had twice failed of selection for promotion were involuntarily 
retired after 26, 28, and 30 years of service, respectively. Also 
authorized the voluntary retirement of Navy officers after 20 years of 
commissioned service,» at the discretion of the President. 


Authorized voluntary retirement of Army enlisted personnel after 20 
years of active service. 


Authorized voluntary retirement of Navy and Marine Corps officers after 
20 years of active service, including 10 years of commissioned service. 
Lowered mandatory retirement age from 64 to 62 for such officers. 
Temporarily authorized their involuntary retirement if chosen for 
elimination from active list by board of officers. 


Created Department of Air Force. Made Army retirement laws applicable to 
Air Force personnel. 


Established integrated promotion/involuntary retirement system for 
officers of all Services. 


Established retirement system for career personnel of Reserve and 
National Guard. Authorized voluntary retirement of Air Force and Army 
officers after 20 years of active service,» including 10 years of 
commissioned service. Repealed 15-year voluntary retirement authority 
enacted in 1935. 


Established specific retirement system for warrant officers of services. 
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TABLEI 


SUMMARY OF MILITARY RETIREMENT LEGISLATION (cont’d.) 


DATE 


1958 


1963 


1975 


1976 


1980 


1980 


1981 


1982 


1983 


ACTION 


Suspended "recomputation" method that primarily had been used to make 
post-retirement adjustments to retireed pay since origin of Service 
retirement system. 


Replaced recomputation method of retired pay adjustment procedure based 
on increases in cost-of-living. 


Provided that the monthly retired/retainer pay of those who became 
entitled to that pay on or after 1 Jan 1971 may not be less than it 
would have been had the member become entitled to such pay of an earlier 
date in that member's career (Tower Amendment). 


Eliminated the one percent add-on and established а semi-annual 
adjustment mechanism effective March Ist and Sept. Ist of each year. 
Percentage adjustment determined on CPI percentage increase from June to 
December and December to June» respectively (Chiles Amendment). 


Deleted the semi-annual mechanism and directed that retired pay be 
adjusted at the same time and by the same percentage as Civil Service 
pensions, contingent on annual mechanism being established for retired 
Civil Service. 


Replaced use of terminal basic pay with monthly retired or retainer pay 
base (average of highest three of basic pay) for determining retired or 
retainer pay entitlements. 


Established an annual adjustment mechanism for retired Civil Service 
employees and activated a similar feature for retired military service 
members, effective on March Ist of each year, as determined by the 
percentage increase in CPI from December to December of each year. 


Placed a three-year limitation on CPI adjustments during FY83 to ЕҮ85, 
and slipped the effective date one month during each year (April, May, 
June), respectively. Members age 62 or older, or disabled» receive full 
CPI percentage adjustments. Members under age 62 receive one-half 
"assumed CPI" (3.3, 3.6, 3.3 for FY83, FY84, FY85, respectively), plus 
the actual CPI percentage increase. 


Repealed the "one-year  look-back'" save pay feature for the calculation 
of initial amounts of retired/retainer pay, but (1) created a 3-year 
extension for those eligible to retire on 24 Sept. 1983 to use the "look 
back" feature, and (2) ensured that retired/retainer pay may not be less 
that what it would have been during the 3-year period for members 
eligible to retire оп 24 Sept. 1983. Provided that gross 
retired/retainer pay be rounded to the next lower dollar amount. 
Provided that years-of-service creditation for calculation purposes be 
based on 1/12 of a year for each full month served. This terminated the 
six-month rounding rule for computing retired/retainer pay. 
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C. REVIEW OF MILITARY RETIREMENT SYSTEM STUDIES 
1. Hook Commission (1948) 

The Hook Commission (Advisory Conimission on Service Pay) in 1948 was 
the first major study of the entire military compensation system conducted after World 
War II. The Commission's recommendations provided the basis for the Career 
Compensation Act of 1949. This legislation enacted provisions which set the 
framework for the current svstem of basic compensation, and Special and Incentive 
pays. In regards to military retirement, the Commission recommended: (1) that the 
system should be non-contributory; (2) voluntary retirement with 20 vears of service at 
age 60 (for officers; for enlisted personnel this would drop down to age 50) or at any 
age with 30 years of service; (3) that there was no need to accumulate a fund; (4) that 
mandatory retirement for officers be no lower than age 60; (5) that severence pay be 
paid to those who are involuntary separated; and (6) retirement pay be 2.5% of basic 
pay multiplied by the years of service, not to exceed 75%. [Ref. 3] 

2. Senate Subcommittee Hearings (1958) 

Though not the results of a formal study, recommendations to change the 
military retirement system only for senior officers were presented by the Assistant 
Secretary of Defense (Manpower, Personnel, and Reserves), William Francis, to the 
1958 Senate Subcommittee Hearings on military pay matters. Mr. Francis presented a 


plan whereby the normal retirement points for senior officers would be established as 


follows: 
Grade Years 
O-6 through 0 10222217 30 
ФАШ ОЛО О О О О улус 26 
O-4 and below c 22222222 20 
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This plan was proposed in response to the exodus of young colonels in the Air Force 
with 20 years of service. [Ref. 4] 
3. Gorman Committee/ Randall Panel (1962) 

The Gorman Committee was a comprehensive study of the Service 
compensation system. No final report was ever issued; however, its findings were 
reviewed and (for the most part) approved by the Randall Panel. This led to the 
second largest Service pay raise in modern times (the largest was in fiscal year 1982). 
A major recommendation of this study that was enacted into law was to base 
adjustments to Service retired pay on the CPI rather than on changes in basic pay of 
active duty personnel. [Ref. 1: p.VII-16] 

4. First ORMC (1967) 
до лг Code mw section 1008, required the President to initiate a 


quadrennial reviews 


of military compensation, and to submit a comprehensive report 
to Congress. The First Quardrennial Review of Military Compensation (First QRMC) 
was convened in December 1966, with the report published in November 1967. The 
major recommendations of this First QRMC were: (1) a career force member should be 
fully paid in taxable cash, 1.e., a "military salary,” with deductions for taxes and any 
subsistence/housing furnished; (2) a career service member would contribute 6.5% of 
his salary to a retirement account and have a vested equity in this contribution; (3) 
adoption of a two-step annuity plan where the retiree begins drawing Step-1l рау 


percentages (24% at 20 years of service to 66% at 40 years of service) immediately 


upon leaving the Service, and graduating to Step-2 pay percentages (33% at 20 years 


‘There have been five quadrennial reviews conducted to date. Three of the 
reviews, the First/Third/ Fifth, dealt with military retirement and are discussed in this 
thesis. The remaining two, the Second/Fourth, did not address military retirement and 
are, therefore, not included. 
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of service to 75% at 40 years of service) at age 55 to age 60, depending upon length of 
service at retirement; (4) integration with Social Security, with military retirement 
annuities to be offset by 50%. of social security beefits; and (5) military retirement 
annuities to continue to be protected by CPI adjustments. [Ref. 5: pp. S220 
xvi-Xviil, 3-1 to 5-5] 

5. Interagency Committee (1971) 

The Interagency Committee (IAC) on Uniformed Services Retirement and 
Survivor Benefits (1971) proposed extensive reform of the non-disability retirement 
system. The Committee's recommendations were intended to decrease costs, improve 
the efficiency and effectiveness of the system as a management tool, and to reduce 
some of the system's inequities. The major recommendations included: (1) a reduced 
annuity for retiring earlier than age 60 with 20-24 years of service, or at age 55 with 30 
Or more years of service; (2) a three-step annuity plan of 2.5% for 1-24 years of service, 
3% for 25-30 years of service, and 2% for 31-35 years of service; (3) vesting at 10 years 
of service; and (4) a lump sum severance pay for involuntary separation after 5 years of 
service. | Кер Гр ҮТІР) 

6. DoD Retirement Study Group (1972) 

The DoD Retirement Study Group (1972) was formed to review the 
recommendations of the Interagency Committee (IAC). The results of this study 
group took the form of the proposed Retirement Modernization Act (RMA), 
legislation that was never passed. The RMA proposed a two-step annuity plan (2.5% 
for 1-24 years, 3% for 25-30 years) which would be reduced by 15 percentage points 
for retirernent with less than 30 years of service. The reduction would be lifted when 
the retiree reached the point where he would have had 30 years of service. The 
proposed Act also provided vesting at 10 years of service and severance pay after 5 


vears of service. [Ref. I: p. VII-16] 
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7. Third ORMC (1975-1976) 

The Third Quadrennial Review of Military Compensation (Third QRMC) 
took a comprehensive look at the entire military compensation system. Though ten 
volumes were published in 1976 that contained research and background papers, no 
final report was ever issued. The recommendations of the Third QRMC included: (1) 
comparability with Civil Service should be the standard for establishing pay; (2) the 
military pay and allowances system should be modernized; and (3) the previously 
discussed Retirement Modernization Act should replace the present retirement svstem. 
[Ref. 2: p. VII-17] 

8. Defense Manpower Commission (1974-1976) 

The Defense Manpower Commission (DMC) was created by Congress to 
study a large number of defense manpower issues, only one of which was military 
compensation. [ts report published in 1976 recommended a conversion to a salary 
system (versus one of base pay, allowances, and incentives) and a revised retirement 
plan. The proposed retirement plan would allow a service member to "earn" retirement 
points for each year of service: | point for each year in a non-combat job, 1.5 points 
for each year in a combat job. A service member could retire between 20 and 30 vears 
of service when 30 points were accumulated, and receive an annuity of 2.67% per 
retirement point multipled by the highest three years of basic pay. (Example: 22 years 
non-combat service equals 22 points and 4 years of combat service equals 8 points. 22 
+ 8 = 30 points. 30 x 2.67% = 80%.) This meant that for service members with no 
combat time, a full 30 years of service must be served. [Ref. 1: p. VII-16] 

9. President's Commission on Military Compensation (1977-1978) 
In 1977, President Carter established his President's Commission on Military 


Compensation (also referred to as the Zwick Commission), and tasked them with 
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reviewing “at least the analyses, findings, and recommendations related to military 
compensation which have been completed by the Quadrennial Reviews of Military 
Compensation, the Comptroller General, the Interagency Committee,” and others. The 
Commission was tasked with making recommendations on a wide-range of military 
compensation issues. Inter alia, the Commission was to identify the purposes of the 
nulitary retirement system, determine if the present system was effective, and to 
recommend appropriate changes. The Commission recommended a retirement system 
that provided retired annuities with as few as 10 years of service. However, the 
annuities could not be collected until age 55 for 30 or more vears of service, age 60 for 
20-29 years of service, or age 62 for 10-19 years of service. A change from a level 
multiplier to a three-step multiplier was also recommended: 2.0095 for 1-5 years of 
service, 2.25% for 6-10 years of service, and 2.75% for 11-35 years of service. Other 
reconimendations included a “high-three average” instead of final basic pay to compute 
the retirement annuity; reduction in military retirement pay when social security 
benefits commenced; adjustment of annuities through the use of a CPI change; and the 
establishment of a deferred compensation trust fund for each member after 5 years of 
service. [Ref. 6: pp. 62-70] DoD modified the Commission's retirement proposal and 
submitted it to Congress in 1979 as the Uniformed Services Retirement Act (USRBA). 
No action, however, was taken by Congress. [Ref. I: p. VII-17] 
10. President's Private Sector Survey on Cost Control (1983) 

The President’s Private Sector Survey on Cost Control (PPSS), more widely 
known as the Grace Commission, was formed to identify and suggest remedies for 
waste and abuse in the Federal government. The nulitary retirement system was 
identified as an area in which cost savings could be realized. The proposed changes to 


the military retirement system called for: (1) no voluntary retirement before age 55; (2) 
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age 62 to be the earliest retirement age to receive unreduced retirement benefits; (3) 
reduced pension benefits between age 55 and age 62; (4) a change in the earnings base 
from high-3 to high-5 average; (5) a reduction in the annuity multiplier to 1.3% of 
Basic Military Compensation (BMC) per year of service (BMC is the sum of basic pay, 
basic allowance for quarters, basic allowance for subsistence, and the tax advantage 
gained by receiving tax-free allowances); (6) vesting after 10 years of service; (7) a 
decrease in COLA increases; and (8) the integration of the military retirement system 
with Social Security. [Ref. 7] Though mention was made that the military retirement 
system is used as a personnel management tool, the PPSS believed it to be of little 
value. It appears from the nature of the proposed recommendations that they were 
selected solely on the basis of cost reduction, and, in fact, did not consider manpower 
force requirements of the military services. [Ref. 1: p. VII-17] 
11, Fifth ORMC (1982-1984) 

Finally, in the fall of 1982, the Fifth Quadrennial Review of Military 
Compensation (Fifth QRMC) was organized to assess the extent to which the existing 
military retirement and special incentive pay systems contribute to our national 
defense. Contrasted to the Grace Commission’s strictly “cost-reduction” view of the 
military retirement system, the Fifth QRMC evaluated the military retirement system 
from the perspective of how it supported and complemented the manpower force 
management requirements of the military Services. The findings, recommendations, 
and supporting documentation of the retirement system portion of the study were 
published in five volumes in early 1984. In order to strengthen the military retirement 
system, the Fifth QRMC recommended that consideration be given to modifying the 
system with one of four alternatives that recommended combinations of reduced 


multipliers and COLAs for early (less than 30 years) retirement. The Review further 
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recommended that the system should be “grandfathered,” remain non-contributory, not 
be explicitly integrated with social security (1e., no offset), and that vesting should 


remain at 20 years of service. [Ref. 1: pp. I-35 & I-36] 


D. SUMMARY 

The reviews of the legislative history and various studies of the military 
retirement system establish that the system is not solely an old-age pension system. 
Rather, it is an integral part of total military compensation which has been, and should 
continue to be, used as a force management tool. As the Fifth QRMC stated, any 
modification to the retirement system should “be proposed in a legislative form that 
recognizes the absolute requirement for an integrated proposal, and that subsequent 
fragmenting of the modification could negate the resultant force structure and thus 
cause the modification to fail its intended purpose" [Ref. 1: p. I-35]. Any modifications 
to the retirement system must consider this tie-in between the retirement system and 
force management, and potential spill over effects. Dollars that are saved by reducing 
benefits to retirees could be needed to pay for increased recruiting, training, and 


retention costs. 
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П. AN ECONOMIC COMPARISON AND EVALUATION 


КОО INTRODUCTION 

As mentioned above, military retirement costs for fiscal vear 1983 amounted to 
$15.9 billion and accounted for approximately 8% of all defense spending. The costs 
of this retirement system are projected by the DoD Office of the Actuary to reach over 
S45 billion in fiscal year 2000 [Ref. 8: p. 21]. In this chapter the component parts of 
the current military retirement system are described, and the costs of providing these 
benefits are examined. Military retirement outlays are compared to the Gross National 
Product (GNP) and other portions of the Federal budget. The results of analyses 
performed during the Fifth Quadrennial Review on Military Compensation are 


presented. 


B. DESCRIPTION OF THE CURRENT RETIREMENT SYSTEM 
The current military retirement system is comprised of four distinct, but 
inter-related components: 


* A non-disability system for service personnel (either Regular or Reservists) who 
may retire from active duty after at least 20 years of service (no age limitations). 


* A non-disability svstem for drill reservists who have completed at least 20 vears 
of creditable service for retirement purposes. These personnel may retire at age 
60. 


ФА disability system for service members either temporarily or permanently 
disabled. 


e A Survivor Benefit Program (SBP). 
After 20 years of active duty, a service member is eligible for immediate 
non-disability retirement annuities. The service member's retirement pay is equal to 


vears-of-service (YOS) times a multiplier (2.5%) times final basic pay. (For those 
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entering the Services after September $8, 1980, the pay base used is high-3 average 
instead of final pasic pay.) A maximum of 75% of base pay may be received. 
Cost-of-living adjustments to retired pav are based upon the Consumer Price Index 
(СРО. [ВеБ. 15: ро Viel tor) Ios ope 

Non-disability reserve retirement provisions closely follow those of non-disability 

active duty retirement. Two distinct differences are involved, however: 
¢ Years of equivalent service are earned by receiving creditable days (“points”) for 
active duty, full-time Reserve service during annual training, drill periods, and 
membership in a Reserve component. 
e Though a service member may retire from the Reserves any time after 20 

creditable years are earned, retirement pay does not begin until age 60 [Refs. 1,8: 

VI-7 & VI-8,p. 3)]. 

Disabilitv retirement 1s provided to service members unable to perform their 
duties. Disability retirement qualification and amount of pay are determined by length 
of service, disability percentage (from a Veterans Administration rating system), cause 
of the disability, and service member's basic pay. The disabled service member receives 
retired pay based upon the most advantageous level of benefit. [Refs. 1,8: pp. VI-8 & 
VI-9,pp. 2 & 3)] 

The Survivor Benefit Program (SBP) is an optional program that provides income 
to surviving families of service members who die in retirement or on active duty after 
reaching eligibility. Service members elect a percentage of their gross retired pay to be 
provided to their survivors, and give up a portion of their retirement annuity in return. 
This is the only portion of the military retirement system where service members 
explicitly share the costs of the system with the government. [Ref. 8: pp. 3 & 4] 

Table III presents the number of retired personnel and retirement costs broken 


down by component parts for fiscal years 1979 to 1983. Each component as a 


percentage of total retirement and SBP costs has remained relatively constant during 
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TABLE II 


COMPONENTS OF THE MILITARY RETIREMENT SYSTEM 


(Dollar amounts in billions of $) 


FY79 ҒҮ80 FY81 FY82 Ғү85 
Non-disability retirees 
Active duty 
Number 974,639 1,000,685 1,019,970 1,038,084 1,052,153 
Retirement pay $ 8.41 $ 9.77 511.24 $12.23 513.04 
(81.82) (82.07) (81.97) (81.97) (81.97) 
Drill reservists 
Number 101,490 112,744 123,278 155,249 141,199 
Retirement pay 5 .58 5 .69 9 .85 5 .96 5 1.06 
(5.67) (5.82) (6.22) (6.42) (6.77) 
Disability retirees 
Number 152,365 151,096 145,714 142,105 140,008 
Retirement pay $ 1.09 $ 1.20 $ 1.30 $ 1.36 $ 1.38 
(10.62) (10.17) (9.57) (9.17) (8.67) 
Surviving families 
Number 57,821 65,625 76,170 775346 85,521 
SBP payments 5 .20 5 .26 5 .33 5 .39 5 .45 
(1.97) (2.24) (2.47) (2.62) (2.87) 
Total 
Number 1,286,315 1,330,150 1,363,132 1,590,779 1,418,881 
Expenditures $10.28 $11.92 $13.72 $14.92 $15.93 


(Data was obtained from the DoD Statistical Reports on the 
Military Retirement System, FY1979 to FY1983. ) 


these years: active duty non-disability retired pay, 82%; drill reservists non-disability 
retired pay, 6-7%; disability retired pay, 9-11%; and SBP, 2-3%. (As a percentage of 


total costs, there are slight increases for drill reservists non-disability and SBP, and a 
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slight decrease for disability retirees.) Since the active duty non-disability retirement 
portion accounts for the majority of the cost of the system, it logically follows that if 
modifications are to be made to the retirement system in an effort to reduce costs, then 
this portion of it would undoubtedly produce the greatest cost savings. 
[Refs. 9,10, E 1, I2; 15: p; Wa pies peels lo orc) 

Prior to fiscal year 1985, the military retirement system was an unfunded or 
"pay-as-vou-go' system. This funding method charges future generations of tax payers 
for services rendered by the military service to the current generation of tax payers. 
However, the DoD FY84 Authorization Act (Public Law 98-94) requires the military 
retirement system to be valued using accrual accounting and funded using an aggregate 
entry-age normal method. Under accrual accounting, future retirement and survivor 
benefits that are earned by current service members are accounted for and charged to 
the current budget. The aggregate entry-age normal method sets aside a uniform or 
level percentage of basic pay to provide the funds for the retirement annuities. Only 
each year’s normal cost (plus/minus any actuarial gains or losses) will be funded by 
DoD. The U.S. Treasury will assume responsibility to make payments on the 
unfunded liability. Accrual accounting and aggregate entry-age funding should provide 
three improvements over the pay-as-you-go system: (1) the current year’s total cost of 
the present military force is more accurately presented; (2) a more accurate assessment 
of how changes to the force structure effect future retirement costs; and (3) less 
emphasis on immediate retirement benefit cuts that offer only short-term savings. 


[Ref. 1: p. 1-8] 


С. MILITARY RETIREMENT COSTS VS. GNP AND FEDERAL OUTLAYS 
Taken by themselves, military retirement costs certainly do appear to be 
excessive: a 4400% increase in the last thirty years with a fiscal year 1983 cash cost of 


$15.9 billion. But, how do these figures compare to other costs? 
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Table IV presents GNP, federal budget, defense spending, and military personnel 
costs for the last thirty years. Though retirement costs have steadily increased since 
1954, GNP and the federal expenditures have also been rising steadily. (See Figures 2.1 
- 2.3.) [Ке%$. 9,14,15: pp. IO & 11] 

Examining the increases in GNP and the federal outlays over the last thirty years, 
we find that the percentage increase in military retirements costs has, in fact, far 
outdistanced the others. Retirement costs have climbed 4000975 since 1954. During 
this same period, GNP, the federal budget, defense spending, and military. personnel 
costs have increased 875%, 1023%, 422%, and 315%, respectively. 

Looking at the relationship between retirement costs, defense spending, and total 
federal outlays a little closer, we find that in the same period that military retirement 
costs have increased from 1% to 8% of the defense budget, defense spending has 
decreased aS a percentage of the federal budget from 57% down to 26%. As a 
percentage of the federal budget, military retirement costs have increased roughly three 
and a half times from .6% to 2.0%. These increases in military retirement costs would 
seem to make a strong argument in favor of modifying the retirement system in order 


to reduce costs. 


D. REASONS FOR INCREASES IN MILITARY RETIREMENT COSTS 

This section briefly describes the results of analyses conducted during the Fifth 
Quadrennial Review on Military Compensation. Using non-disability retirement data 
from fiscal years 1955 to 1982, four factors were investigated to determine their 
influence on the increases in retirement costs. These four factors were: (1) retired 
population growth, (2) CPI inflation, (3) basic pay (which is used to determine 
retirement pay) increases in excess of inflation, and (4) retired pay adjustments 


(COLA). [Ref. 16: p. F-1] 
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TABLE IH 
30 YEARS OF GNP AND FEDERAL OUTLAYS 


(Billions of $) 


% ОҒ 
FEDERAL FED. 7 ОҒ 
DEFENSE BUD. HMILPERS РЕР. 


795.97 26.6 

728.38 : 25.7 

657.20 . 24.3 

576.68 : 25.6 

491.00 . 24.0 

948.27 . 23.5 

а00.51 . 24.3 

364.47 . 24.5 

324.26 . 26.9 

276.91 . 28.1 

245.65 . 30.3 

230.68 33.2 

210.17 . 36.1 

195.65 . 40.2 

183.65 : 43.2 

178.13 . 44.2 

157.61 . 43.3 

156.65 40.8 

118.43 Е 40.1 

118.58 : 43.4 . 25:9 

111.31 : 45.0 . 27.6 

106.81 : 45.9 26.5 

97.80 . 47.6 . 26.0 0.79 
92.22 . а9.0 . 25.9 0.69 
92.10 . 50.5 . 25.9 0.63 
82.58 . 53.5 . 26.2 0.56 
76.7% . 56.6 . 26.3 0.51 
70.96 . 56.9 . 28.9 0.98 
68.51 59-5 26.2 0.42 
70.89 56.9 27.2 0.39 
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(Data was obtained from the FY1983 Valuation of the Military 
Retirement System, and the 1983 and 1967 Economic Reports of the 
President.) 





The analyses determined military basic pay increased by a factor of 4.8, while 
CPI inflation had increased by a factor of 3.6. These two factors were calculated to 


have accounted for approximately 76% of the increase in military retirement costs 
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(21% - wage growth, 55% - CPI inflation). The other two factors, increases in the 
retired population and COLA adjustments to retired pay, were responsible for 19% and 
5%, respectively, of the remaining 24% increase in costs. [Refs. 1,16: p. VIII-7,pp. F-1 
ОВ 

It was also determined that changes in officer/enlisted mux, changes in 
grade, rank’years-of-service (YOS) at retirement, mortality improvements, and the 
establishment of paygrades ES E9 were not major factors for the increases in 


retirement costs. [Refs 1, Ю: р. УЕТрЕ 


Е. SUMMARY 

Whether considered alone or whether they are compared to other federal outlays, 
the costs of the military retirement system have grown tremendously. In the last thirty 
vears alone, as a percentage of total federal expenditures, retirement costs have 
increased over three-fold. There is no doubt that these costs will continue to grow and 
become an even greater percentage of the federal and defense budgets. As the major 
portion of military retirement costs, non-disability retirement provisions appear to be 


the likely candidates for cost-saving measures. 
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ПІ. MILRET COMPUTER PROGRAM 


A. BACKGROUND 

The MILRET computer program is a major revision of the ENTRYAGE 
computer Model that was developed in 1983 at the Naval Postgraduate School as part 
of a thesis. The ENTRYAGE model is an 750-line Waterloo BASIC language 
program that was used to perform a sensitivity analysis on both individual and 
aggregate entry-age normal retirement cost methods under differing economic, 
managerial, and legal assumptions. However, only active duty non-disability 
retirement costs were included in the program. [Ref. 17] 

At the request of the Office of the Assistant Secretary of Defense (Manpower, 
Logistics, and Reserve Affairs), an effort was initiated to revise the ENTRYAGE 
program to produce results comparable to those of the Military Retirement System 
Projection and Actuarial Valuation Program (GORGO) developed by the DoD 
Actuary. This 3000-line FORTRAN language program has the capability to make 
dynamic, transitional, and steady-state projections. GORGO is an extremely detailed 
program that encompasses all aspects of the military retirement system: non-disability, 
disability, active and reserve, officers and enlisted personnel, and SBP population and 
cost. Input for this program is provided by another DoD Actuary program, the 
Annualized Cost of Leaving (ACOL) model. [Refs. 1,8: pp. IX-24 & IX-25,pp. 9 & 10] 

The revisions to the original ENTRYAGE model were to include: (1) reserve, 
disability, and SBP provisions in the algorithms; (2) make the program more 
“user-friendly” and interactive; (3) produce “cleaner” output; and (4) have the capability 


to access external data bases. Consideration was also to be given to recode the 
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ENTRYAGE program to either Pascal or Interactive Financial Planning System 
(TERS). 

As work progressed, it became obvious that the GORGO program was of a 
much higher level of sophistication than the ENTRYAGE computer model. In fact, 
for the Fifth Quadrennial Review of Military Compensation, two additional computer 
programs were written to provide data inputs to GORGO. In all, five separate 
computer programs were utilized to analyze military retirement costs and the impact of 
various alternatives. The experience, talent, and time required to develop the 
ENTRYAGE model into something comparable to GORGO were beyond the scope of 


the author. 


B. REVISIONS 
The changes made to the ENTRYAGE model have been extensive. The 
ENTRYAGE model has been almost completely rewritten and the new program has, 
therefore, been renamed as the MILRET (Military Retirement) program. Major 
revisions to the original ENTRYAGE model include: 
e Internal documentation of the program. 


e Development of “call-able” procedures and functions (features of Waterloo 
BASIC) to replace approximately 75 “GOTO” and “GOSUB’ statements. 


e Extensive use of menus to provide a more user-friendly environment 
The revisions to the ENTRYAGE model have resulted in over 1300 lines of code 
for the MILRET program. Since Waterloo BASIC includes functions and procedures, 
the decision was made to remain with that language. No algorithms were developed for 
reserve, disabilitv, or SBP provisions, nor was the capability to access external data 


bases included. 
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C. INSTRUCTIONS 
Use of the MILRET is relatively simple and straightford. To enter the Waterloo 
BASIC environment on the IBM System 3033, the following steps are required: 
1. WBASIC" « ENTER» 
ЖІБІ КЕЛ S ENTER-- 
eee eae IN | ER = 
Do not include the quotation marks, only what is contained between them. After a 
few moments while the program is loading, a message will appear with the MILREP 
name. Shortly thereafter, a Main Menu is presented from which to choose the 
following: 
1. Program Description 
2. Enter/Change Data and Actuarial Assumptions 
3. Individual Entry-Age Method 
4. Aggregate Entry-Age Method 
5. Expanded Multi-Year Individual Cost Method 
6. Exit Program 
It 1s recommended for the first time user to start with the program description, 
followed by a review of the data and actuarial assumptions contained in the program. 
Appendix C contains listings of the various menus that are displayed and some sample 


inputs. 
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APPENDIX А 
MILRET COMPUTER PROGRAM (VERSION 2.0) 


000 10 ! 3889))9OOOP)OOOOO)9006CH9OOOOOOPBOPOOODOOPOOOOOPOODOOPOOPBODODOOPODOODOOOPOB)OOQ!OO|OO)|OO!O!HPOtE 


00020! * 
00030!» 
00040! * 
00050! * 
00060! * 
000701» 
00080! * 
00090! * 


MILRET Pension Cost Program x 

This is a three part interactive program that calculates 
non-disability military retirement costs. The three parts of 
the program are (1) individual entry-age cost method calcula- 
tion, (2) aggregate entry-age cost method, and (3) a multi- 
year expanded individual cost method. Program data has been 
derived from Department of Defense sources, and considers 
1983 to be the current year. 


00100! —————————————————[ 


00110 


00120 ! 3:B)9/BOOO909090)8)0)O0O0O0O0O0O0O10O00O|1ODUOIDXDOIOQOODOODOOOODOOOUOODODI9UIIDQODOODOOPOOOOOPOOPID)O9OegPO/D|POE 


001301» 
00140! % 
001501! * 
00160! 
001701 
001801» 
001901» 


OPTION Statements 
The option statement is used to inform the Waterloo BASIC 
system of certain global information to be used to the control 
the execution of the program: 
prompt: A '?' is displayed on the terminal when data is input 
base 1: Establishes 11" аз the lower extent of all matrices 
lprec: Numbers have 16 digits of precision (long precision) 


* ж Ж Xx X x 


(122127 нее ал дж ж жа Бек жж а ы е XOXDIIPIIECEOERCOIEXCGHREOOOOIOOOO!PO!DEO! OOOE 
00210 option prompt, base |, lprec 

00220 

ODD jo iU RIE E Roscoe Жей кі ЫЫ НЧЕ Ы Е-е Хен 


002401 * 
002501» 
002601» 


RESTORE Statement 


* 


Restores the data-list conceptual pointer to the first item + 
in the first data statement of the program. ж 


0427) жэсХ жээ» А ня жа Ы CHR e D iom 2 Ee Cocos ж-е жек жеккен 
00280 restore 


00290 


002300 ! 890/8)8O)OOPOOOODOOOPO)OPOO/BOOPPOODHOO)OOOOO)OOOPOOPOO(QO(DOPOIOO/POPOHOOP|OXPOaOpOOQPOOOOOP!O!D|!OE 


00310!» 


Actuarial and economic assumptions ж 


002320 !3OG)BOOPDOOXOOOOOODODOO9OX19O9OOPO!OOOOOOOOOPOODOOPOOOPOPOIOCQPOOPOOO!POQ[DO)OODOPOPNSOOOO)0!|BO(PpOO 


00330 
00340 
00550 
00360 
00370 


current vear = 
cola 5 
salary_scale_incr = .055 Z 
annual_disc_rate = 


1983 2 5 


.05 ^ 


annuity multiplier 
max percent of pay 
off retire prob 
enl retire prob 


. 02 
245 


Л 
Ч 


= .40 
. 06 7 = .12 


OO 553633553555 569655655363656 


003901!» 
00940014 
00410! 
004201» 
00943014 
004401!» 
004501 * 


The opening credit is first displayed, followed by the 
program's main menu. The operator's selection is checked to 
determine if the operator desires to terminate the program. 
If the program continues on, the appropriate procedure is 
called. Finally, if an invalid selection number has been 
entered; an error message is printed and the main menu is 
re-displayed to the operator. 


0046 0 ! 38€9X98OOO0009089000O009)0OO0)O0O00O0O0O0OO[O)HOOP|OQ!)OOOOPÓBOOPOÓOOOOO)OPOOOOO/|OOO)pOO|OOO!Og!O)|g/gOt 
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PAGE 2 


00670 call dimension, matrices 

00480 call read in data 

00490 

00500 call milret program, opening . credit 
00510 main menu selection$-z'O' 

00520 while (main,menu, selection$«»'6') 
00530 call display, main, menu 


00540 on ioerr ignore 

00550 input main, menu, selection$ 

00560 if main, menu selection$-'6' 

00570 call exit program message 

00580 elseif main menu selection$-'1' 
00590 Call program description 

00600 elseif main_menu_selection$=‘2' 
00610 call enter_data 

00620 elseif main_menu_selection$='3' 
00630 call individual_entry_age_normal 
00640 elseif main, menu selection$-'6' 
00650 call aggregate entry age normal 
00660 elseif main, menu, selection$-'5' 
00670 call expanded multi year individual normal 
00680 else 

00690 call main menu, error message 


00700 endif 
00710 endloop 


00720 
90750 нөээӘөвеенененеен енеке некемен некен ныне ммен еме 
007401 PROCEDURE milret program opening. credit ж 


20750 1 эссе хээг 32535465 366 31:34 ESI За ЕЭ ЕЭ Әке не жәнен 
00760 proc milret program opening credit 

00770 print chr$t12) 

00780 print Z print Z print Z print 

00790 print Z print Z print 7 print 

00800 print 

00870 print tab(14)3' MILRET PROGRAM (Version 2.0, 1985)! 

00880 print 

00890 print tab(14);'Developed at Naval Postgraduate School, Monterey; СА 
00900 print 

00910 print tab(14)3' (Please wait - program is loading. )' 

00920 for i = 1 to 30000 

00930 next i 

00940 endproc !(* entryage_program_opening_credit ж) 


01020!* PROCEDURE dimension_matrices ж 
01030!* The various data matrices are dimensioned. ж 
91040: зввазнавововавовнаоновононосоввавовзонововненыеве нана чан ные / 
01050 proc dimension matrices 

01060 dim current year, basepay(26,6) 

01070 dim prior year, basepay(26,6) 

01080 dim enl nondis, retired mortality(i1) 

01090 dim off nondis retired mortality(i1) 

01100 dim avg los for retired gradet(26) 

01110 dim avg.age for retired grade(26) 

01120 dim target, retired grade, prob(26) 

01130 dim enlisted_accession( 32) 

01140 dim officer_accession( 32) 

01150 endproc !(* dimension_matrices *) 

01160 эсээс Бен 8 НЕЗ мея жеке ERROR RR Hee He OH 
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РАСЕ 5 


01170 

D Du emen eni em eh s (RORIS — 
012350! * PROCEDURE read, in, data * 
012401 The various data matrices are read from the program ж 
012501 into internal storage for use in the calculations. ж 


ТОО ча елы еза ы ыыы ыы HE ыыы ее SHIR ыы ыыы ыыы ыл ыыы ы ыы 
01270 proc read, in, data 

01280 read mat current year basepay 

01290 read mat prior, year basepay 

01300 read mat enl, nondis, retired mortality 

01310 read mat off nondis retired mortality 

01320 read mat avg los, for, retired grade 

01330 read mat avg_age_for_retired_grade 

01340 read mat target_retired_grade_prob 

01350 read mat enlisted_accession 

01360 read mat officer_accession 

01370 endproc  '(* read in data ж) 

САЛ ы ai ac еəң« К а сие ж ек Ж еды ен ине НК ЗЕЕ 
01590 

11 ұта ннн еее M HORAE HTC А-А ы СЖЖ ЖИ елек екен 


014601% 1983 pay data ж 
01470! There is a value in this matrix (and the one below) for ж 
01480'* each of the 26 paygrades (el-e9, w1l-wó, ol, ole, o2, o2e, ж 
01490! 03, o3e» and 04-010) in 2-year increments from 20 years to ж 
015001: 30+ years of military service. ж 
21310) 76663466 IRI BIER 556 HEXEIEOEI)NHIERHIEXDEXEDEO OEOIOCOEXOOOOHIOHOD!|PO|IO[PRH|PE 
01520! 20 угз. 22 угз. 24 угз. 26 yrs. 28 yrs. 30+ yrs. 
01530 data 573.6, 575.6, 575.6, 575.6, 573.6, 575.6 
01540 data 642.9; 642.9, 662.9, 642.9, 642.9, 642.9 
01550 data 762.3, 762.3, 762.3, 762.3, 762.3, 762.3 
01560 data 888.6, 888.6, 888.6, 888.6, 888.6, 888.6 
01570 data 1102.8, 1102.8, 1102.8, 1102.8, 1102.8, 1102.8 
01580 data 1299.3, 1299.3, 1299.3, 1299.3, 1299.35, 1299.3 
01590 data 1483.5, 1585.1, 1585.1, 1779.9, 1779.9, 1779.9 
01600 data 1681.2, 1779.9, 1779.9, 1978.5, 1978.5, 1978.5 
01610 data 1917.9, 2019.0, 2019.0, 201529 2215.2, 2215.2 
01620 data 1660.8, 1660.8, 1660.8, 1660.8, 1660.8; 1660.8 
01630 data 1789.8, 1862.3, 1862.3, 1862.4, 1862.3, 1862.4 
01640 data 1994.1, 2066.4, 2066.4; 2139.3, 2139.3, 615923 
01650 data 2267.7, 2243.6, 2295,6, 2526.0, 2526.0, 2526.0 
01660 data 1382.4, 1382.4, 1382.4, 1382.4, 1382.4, 1384.2 
01670 data 1716.6, 1716.6; 1716.6, 1716.6, 1716.6, 1716.6 
01680 data 1752.6, 1752.6, 1752.6, 1752.6, 1752.6, 1752.6 
01690 data 2029.2, 2029.2, 2029.2, 2029.2, 2029.2, 2029.2 
01700 data 2561.9, 2561.9, 2561.9, 2361.9, 2361.9, 2261.9 
01710 data 2397.3, 2397.3, 2597.35, 2397.3, 2597.3, 2397.3 
01720 data 2731.2, 273122: "dr f eru р 2731,2, 2751.2; 2751.0 
01730 data 3155.7, 3266.1, 3266.1, 3266.1, 3266.1, 3266.1 
01740 data 3488.4, 3690.9, 3690.9; 4002.9; 4002.9; 4002.9 
01750 data 4555.8, 4555.8, 4555.8, 4555.8, 4555.8, 4555.8 
01760 data 4791.6, 4791.6, 4791.6, 4791.6, 4791.6, 4791.6 
01770 data 4791.6, 4791.6, 4791.6, 4791.6; 4791.6, 4791.6 
01780 data 4791.6, 4791.6, 4791.6, 4791.6, 4791.6, 4791.6 
91790 еек о са IS EE UID ез ае ЗС ЕК ЖЭС COR HBB 
01800 

UC Ese аав о Чень Re le ESSE 
01840! 1982 pay data ж 
(Oo LEO вно н а Ra hit ate GE ж КИСЕ Е-Е ы кенже 
01860! 20 үгз. 22 угз. 24 угз. 26 yrs. 28 yrs. 30 yrs. 
01870 data 551.4, 551.4; 551.4, 551.4, 551.4, 551.4 
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618.3, 

732.9; 

854.6, 
1060.5; 
1249.2, 
1522.2, 
1711.5, 
1941.3; 
1596.9; 
1790.7, 
1986.9, 
2253.6, 
1329.3, 
1650.6, 
1685.1, 
1951.2, 
2271.0, 
2505.2, 
2626.2, 
3140.4; 
3349.0; 
4176.0, 
4176.0, 
4176.0; 
4176.0; 


618.3, 

732.9, 

854.64, 
1060.5, 
1249.2, 
1522.2, 
1711.5, 
1941.3; 
1596.9, 
1790.7, 
1986.9, 
2253.6; 
1329.3, 
1650.6, 
1685.1, 
1951.2, 
2771.0, 
2305.2, 
2626.2)» 
3140.4; 
3549.0, 
%176.0, 
4176.0, 
4176.0, 
4176.0; 


618.3, 

732.9, 

854.4, 
1060.5, 
1249.2; 
1711.5; 
1902.3, 
2150.0, 
1596.9, 
1790.7, 
2057.1, 
2428.8, 
1329.3; 
1650.6, 
1685.1, 
1951.2, 
2271.0, 
2505.2, 
2626.2, 
3140.4; 
3849.0, 
4176.0; 
4176.0, 
4176.0, 
4176.0; 
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618.5, 

752.9; 

854.4, 
1060.5, 
1249.2, 
1711.5, 
1902.3, 
2150.0, 
1596.9, 
1790.7, 
2057.1, 
2928.8; 
1329.3, 
1650.6, 
1685.1; 
1951.2; 
2271.0, 
2505.2, 
2626.2, 
3140.4; 
3849.0, 
4176.0, 
4176.0; 
4176.0, 
4176.0, 


Enlisted non-disability retired life expectations ж 
021901» Thirty-one life expectations for ages 35 to 65 years old. ж 
02200 22 220 22220222022 0 чи Э ЗН ЭЕ ад 
02210 data 37.47, 36.57, 35.67, 364.77, 33.86, 32.95, 32.06, 31.14, 30.24 
02220 data 29.34, 28.646, 27.59, 26.73, 25.88, 25.06, 24.22, 23.41, 22.62 
02230 data 21.86, 21.10, 20.36, 19.62, 18.90, 18.18, 17.47, 16.78, 16.10 
02290 data 15.64, 14.79, 14.16, 13.54 

02250! 3OGODODOCOODOOCROQIIGOODOOODU нен еже езен ыы ыыы т ымм ы р > 


02255 

02260 тыы ыыы ыыт ыыы ыыы ыы ыыы ыыы ы ыыы ы тыы ыыта т лы ты: 
022701» Officer non-disability retired life expectations * 
02280!* Thirty-one life expectations for ages 35 to 65 years old. ж 


02290! Х565665555565565655565 55-55-5565 555656536566 56-56-55-6---55-55565555563 СЕКЕ 36-36-36-36-36-36-36-36-36-36-36-36-36-36-36-36366-36 
02300 data 40.90, 39.97, 59.04; 58.15, 37.20, 56.28, 55,57, 54.95, 35,54 
02310 data 32.63, 31.73, 30.83, 29.96, 29.06, 28.18, 27.31, 26.45, 25.60 
02320 data 24.75, 23.91, 23.09, 22.27, 21.46, 20.65, 19.87, 19.08, 18.31 
02330 data 17.55, 16.81, 16.07, 15.35 

02340 !эӨӨӨЄӨӨӨССӨСӨ68636666663696363636369636-3696-6-36366-3636-3636-36-3636-36-36-36-36-36-36-36-36-36-36-36-36-36-36-36-36-36-36-36-36-36-36-36-36-36-36363696 
02360 

922570! эвээсэг6гэӨ6а666466486363663646536-6-3646--36-36-36-22-34-36-36-36-36-21-363636-38-2646-38-22-22-36-36-38-36-26 НЕЗ еке А 


02380! Average LOS data ж 
02390!* NOTE: There is an entry in this matrix (and the two below) ж 
024001» for el-e9, wl-w4, ol, ole, o2, o2e, o3, o3e, and » 
02941015 04-010. Therefore, there are twenty-six data entries. + 


02920 ! 3XXOXDOOXOOXUOOODOOOOOODOPOQOOOXDO OE OX 3)XOXOK 65656365555 36-36-36-36-36-36-36-36-36-36 36 3636-36-36-46-36-36-36-36 36-36 36-36 36-36-36-36366 


02430 data 20.8, 20.4, 20.8, 21.0, 21.0, 21.0, 21.8, 22.7, 294.3 
02440 data 22:15 22273 23:13 22:71» 21.9, 21.9, 22.5, 22.5, 24.1 
026450 data 24.1, 24.2, 24.9, 28.0, 29.9, 50.4, 50,4, 30.4 


02460  3393XOGOGOOUORBUODUBOOOOOOOC I OOPOPDOECO IOCOOpIOOHIPOH HOPIBOPBHAUÓOIEHBHÍECOHCÓRHERS REC 
02480 
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БР 222252222225 555535225525 222225212522... 22 - 
025101» Average age at retirement data ж 
02520'* 26 average retirement ages for each of the 26 paygrades. ж 
СООО ЖӘИЕ ЖҚХ ЖКЖ 4255-5-33 3-4 ХЕ )OOECCTHOIODOOODPDI|OODOOEXOO|!EC | OO DOODOOOOeer 
02500 data 38.8, 39.8, 40.6, 40.7, 40.5, 40.0, 40.9, 41.5, 42.9 
02550 data 93.0, 49.1, 92.2, 97.1, 93.1, 45.1, 344.0, 344.0, 43.6 
02560 data 43.6, 44,6; 46.3, 50.5, 55:05 56.2; 58.1, 59,8 

025 я ЖЖ НЯ AE a aH ЖЕ НС SH AI SHIH IRIE 
02580 

OTa TO e emee pe я ee EC ж с Ж к TRAE IR IEEE aE BE ES еке 
02600! Target retirement grade probability data ж 
02610!* 26 probabilities of retiring in a particular paygrades. ж 
22222 ежи Фен НЕЕ ЕРЕСИ ЕЕК ЗЕЕ ЗЕЕ ЗЕЕ ЗВ 3638-36-36 Е ЗЕ ЗЕЕ ЗЕЕ ЗЕ ЗЕЕ E 
02630 data .0001, .0001, .0025; .0128, .0578, .27394, .4229, .1010 
02660 data .0566, .0050, .0170, .0102, .0129, .0003, .0005, .0044 
02650 data .004%, .0252, .0252, .3926, .3299, .2586, .0020, .0138 
02660 data .0030, .0006 

eR er i d esi o eo ——— еф 


02680 
О хм Я Ае АА с ДИ СИНЕЕ НЕНСИ 
02700! Enlisted accession data » 


02710!* Contains 32 enlisted accession rates for the years 1951-1982. + 


02730 data 202.4, 171.4, 88.1, 54.9, 121.4%») 112, 80.4, 89.7 
02740 data 86.4, 91.5; 94.2, 107.9, 85.5, 95.0, 94.3, 145.7 
02750 data 101.1, 122.8, 197.1, 100.2, 78.7, 89.2, 99.0, 85.6 
02760 data 89.7, 99.2, 104.7, 70.1, 65.6, 75.1, 79.1, 65.9 
02770 !33)980008000)08000)80909)0O0O0C(OOO/OODDOODODOODOOODPOPOHPOpOODOO!OPMOPMOOOOYPOO!OOOO|OD|POOO!|O!|/OaogX.gpPMpdOÓr 


02780 
02800 t! 3399090)3OOPOOOOODPOOOOOOO|OOOOOOOODOOOQPOOOOOQO[DOOOO!/HOg/OOÓO/OOHO!Og.d)Od/p!/oOeOedve 
0281014 Officer accession data E 


02820!* Contains 32 officer accession rates for the years 1951-1982. » 
02830 ! s3xÁ!):£::S029180078OOBOOOOO(0O0O0O(OOD0)0O0OOOOOO(O(OQDI1SOOOPOIOOPO)OOO!OO1|OHOQOOOQO!|OIP9O!OOHO!OYO9!/O9O9 
02890 data 8.0, 9.0, 11.9, 11.4, 9.7, 8.8) 15.4, 8 
02850 data 8.9, 11.0, 8.6, 11.9, 10.5, 9.8, 10.9, 11 
02860 data 13.0, 15.1; 15.6, 5.5, 925; 11.15 7.6; 6. 
02870 data 6.5, 6.6, 6.6, 6.1, 7.0, 6.8, 7.5, 7 
02880 ! 35099XOOOSOOOPOOOOODO00000)00O0O0O00O)OO)DOOO)POO.pgogeep)aee OeegO/gXOg|OO!/oegO?g/BOO.g/.eeOeOdver 


02885 
ООО ЖЗИ НА RO РЕН ЗЕЕ ОА В АН ЖЕ РЕЗОН 4 ЯНОВ № 
0290014 PROCEDURE display main, menu ж 


02910!* Displays a main menu from which to make a program selection. ж 
DOT dn lee iO ODE Rog FRIIS GS In КИ м-лік кенен 
02930 proc display main menu 

02940 print chrs(12) 

02950 print tab(23)3;'Military Pension Costs' 

02960 print 

02970 print tab(10);3' This is a three-part interactive program that 
02980 print tab(10)3;'calculates individual, aggregate, and multi-year 
02990 print tab(10);'retirement costs. Choose a selection from the' 
03000 print tab(l10);'following list of optionsi' 

03010 print 

03020 print tab(12);'1l. Program description' 

03030 print 

05040 print tab(12)}3'2. Enter/change data and actuarial assumptions’ 
03050 print 

03060 print tab(12);'3. Individual entry-age cost method' 

03070 print 

03080 print tab(12)3'4%. Aggregate entry-age cost method' 

03090 print 
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03100 print tab(12)3‘'5. Expanded multi-year individual cost method’ 

03110 print 

03120 print tab(12)3'6. Exit program’ 

03130 print 

03140 print ' Type in your selection number and press the <enter> key.' 
03150 endproc !(* display_main_menu *} 

03160 1 X3OCCHODOCOCHODO(PEOGODOUECKC (CC CKOHKOEOIODIOOOOOIOIbO Не ӘӘ а А 
02170 

02210 LU GOGOOOXDOOODOOOOOOOOODOCDODOOOOODODIOIEODOOPDEOODOEIOPDO(IOODOODOD(IOOOHOIOOOOXOXEOOO EE A 
032201» PROCEDURE exit program, message 3 
032301» Prints a message upon exiting the entryage program. ж 
622401 зи BHR REE HHH RR EB RRB HHH EIB ЕЗ ӘНЕ Өк Ж ЗА же 
02250 proc exit, program message 

03260 print chr$(12) 

03270 print 

03280 print 


03290 print ' Program has been exited. Type in "bye" ' 
02300 print ' and press the «enter» key to return to the' 
03210 print ' CMS environment.' 


03320 print Z print ^ print Z print Z print Z print Z print Z stop 

03330 endproc  !(5* exit program, message *) 

0226060 ! езен OCHOIDIE ыыы ыыы сыы ыыы ыыы кылыы NEG HEHE rie bern 
05550 

0Z290X3900000( € GOOOOOOOPOpPHdHBHYC кенен Xp YyO)HESO|B ЭС ЭКЕ |OI|ER C |I! 
034001» PROCEDURE main, menu error, nessage ж 
03410! This procedure prints an error message when called. ж 
0342 0 кекке кен 323045 нен к ен е A RHG AAE i ыны 
03430 proc main menu error message 

02440 print chr$(12) 

02450 print 7 print Z print 

03460 print Z print 27 print 

03470 print Z print Z print 

03480 print 

03490 print tab(16)3 ' You have made an incorrect selection. A number' 
03500 print tab(16)3 ‘from 1 to 6 must be entered in order to proceed. ' 
03510 print tab(16)3 ‘Please input an appropriate number when the main‘ 
03520 print tab(16)3 ‘menu returns to the screen.' 

03530 print 7 print Z print 

03540 print tab(30)3 ‘Please press «enter» to return to main menu.' 

03550 input nothing$ 

05560 endproc  !(5* main, menu, error message *) 

02570 ! x3) EEE ке ж жиекке сек енеке коне IHE IHG HE. SHIRE Wee 
03580 

03610 Тэгнэ кенен нен хе с HBC HBB SG HE HR HRA EHH INES: 
03620! PROCEDURE program_description ж 
25630 сонөкекн енен е ее кеннен ен некен ыны HE RHR 
03640 proc program, description 

03650 print chr$(12) 

03660 print tab(27)3 'MILRET Description' 

03670 print 

03680 print tab(10)3 2 

05690 & ' Welcome to the MILRET program. This program was developed' 
03700 print tab(10)3 & 

03710 & ‘at the Naval Postgraduate School in 1983 and revised in 1985.' 
03720 print tab(10); 4 

05750 & 'The program utilizes three variations of the entry-age normal' 
05740 print tab(10); & 

03750 & 'method of determining retirement costsi:' 

03760 print 
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03770 print tab(22); '1. Individual entry age normal' 

03780 print tab(22); '2. Aggregate entry age normal’ 

03790 print tab(22); '3. Multi-year expanded individual' 

03800 print 

03810 print tab(10); & 

03820 2 ' The individual subprogram produces detailed information at' 
03830 print tab(10)3 & 

05840 à 'the individual paygrade and year of service entry level.' 
03850 print tab(10)3 4 

03860 & ‘Retirement costs are computed from user-supplied information' 
03870 print tab(10); 4 

03880 à 'and internally stored data. Some of the actuarial and economic' 
03890 print tab(10); & 

03900 & ‘assumptions may be changed by the operator.' 

03910 print Z print Z print | 

03920 print tab(40); 'Please press «enter» to continue ===>' 

03930 input nothings 

03940 print chr$(12) 

03950 print tab(27)3 'MILRET Description (cont.)' 

03960 print 

03970 print tab(10); & 

05980 & ' The aggregate subprogram requires the operator to input all' 
03990 print tab(10); 2 

04000 & 'of the data. The information stored within the program is not' 
04010 print tab(10)3 & 

04020 & ‘available to this subprogram. There are no “hardwired” prob-' 
04030 print tab(10); & 

04040 & 'ability assumptions.' 

04050 print 

04060 print tab(10); 2 

04070 à ' The multi-year expanded individual subprogram computes both' 
04080 print tab(10); 4 

04090 % 'normal costs and total retirement costs for years 1953 through' 
04100 print tab(10); 4 

06110 2 '1982. This subprogram utilizes user-provided data and stored' 
04120 print tab(10); à 

04130 & ‘information. The operator may select from a "summary" or a' 
04140 print tab(10); & 

04150 4 ‘"“detail"' presentation of the retirement cost calculations. ' 
04160 print 

04170 print tab(10)3 & 

04180 2 ' When you are returned to the main menu, please select from’ 
04190 print tab(10)3 & 

04200 & ‘the options listed. If this is your first time with this pro-' 
09210 print tab(10); & 

04220 à 'gram, you may want to review the assumptions first.' 

04230 print Z print Z print 

04240 print tab(30); 'Please press <enter> to return to main menu.' 
04250 input nothings 

04260 endproc  !(* program description 9) 


04280 
н а о Э К жк а чек езеж ае аа IGE еее нен кке нее 
043401 PROCEDURE enter data ж 


21025) ж жен -- ope ioci Reine в ч аа ЖЄ ж IRI ЕЕВС ЕН 
0923260 proc enter data 


04370 max cola = 0.20 7⁄7 min cola = 0.00 
04280 max ssi = 0.15 7  min_ssi = 0.00 
04290 max adr = 0.20 И тіп ааг = 0.00 
04400 max am 0.05 ^ min am - 0.01 
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04410 
04420 
04430 
04440 
04450 
04460 
04470 
04480 
04490 
04500 
04510 
04520 
04530 
04540 
04550 
04560 
04570 
04580 
04590 
04600 
04610 
04620 
04630 
04640 
04650 
04660 
04670 
04680 
04690 
04700 
04710 
04720 
04730 
04740 
04750 
04760 
04770 
04780 
04790 
04800 
04810 
04820 
04830 
04840 
04850 
04860 
04870 
04880 
04890 
04900 
04910 
04920 
04930 
04940 
04950 
04960 
04970 
04980 
04990 
05000 
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max pbp = 0.80 УИ min pbp = 0.25 
max por = 1.00 7 min por = 0.01 
max per = 1.00 7 піп рег = 0.01 
data  sel$-'O' 

on ioerr ignore ^4 on conv ignore 


while (data, sel$«»'8') 


call print, data menu 
input data, sel$ 
if data, sel$z'1l' 
print tab(05); ‘Enter the new value for cola (e.g., .052).' 
input new c Z flag=io_status 
call numeric, value check( new, c ,max, cola,min, cola) 
if ((new c«zmax,cola) and (new c»zmin, cola)) апа (Ғ1а4<>8) 
cola = пен с 
endif 
elseif data_sel$='2' 
print tab(05); ‘Enter the new salary increase (e.g., .045}.' 
input new ssi ^  flag-io status 
call numeric, value check(new ssi,max.ssi,min,ssi) 
if ((new_ssi<=max_ssi} and (new_ssi> min_ssiJ)Jand (flag<>8) 
salary_scale_incr = new_ssi 
endif 
elseif data_sel$='3' 
Print tab(05); & 
& 'Enter the new annual discount rate (e.g., .075).' 
input new adr 7^  flagzio, status 
call numeric, value check(new adr,max, adr,min, adr) 
if ((new adr«zmax adr) and (new adr»zmin adr)) and (flag<>8) 
annual disc, rate = пен ааг 
endif 
elseif data_sel$='4' 
print tab(05); & 
& 'Enter the new multiplier (e.g., .015).' 
input new am 4^  flag-io status 
call numeric, value check(new, am max, am min am) 
if ((new am«zmax am) and (new am»smin, am)) and (#1ад<>а) 
annuity multiplier = пем ал 
endif 
elseif data_sel$='5' 
print tab(05); 4 
& ‘Enter the new maximum % of basic pay (e.g., .60)}.' 
input new pbp ИХ flag=io_status 
call numeric, value check(new pbp,max, pbp,min, pbp) 
if ((new pbp«zmax pbp) and (new pbp»zmin, pbp)) and (flag«58) 
max percent of pay - new pbp 
endif 
elseif data_sel$='6' 
print ‘Enter probability of new officer entrant retiring. ' 
input new_por И flag=io_status 
call numeric_value_check( new_por »max_por»,min_por ) 
if ((new por«zmax por) and (new por»zmin, por)) and (flag<>8) 
off retire prob - new por 
endif 
elseif data_sel$='7' 
print ‘Enter probability of new enlisted entrant retiring.’ 
input new per 7  £flag-io, status 
call numeric value, check( new, per,max, per,min, per) 
if ((new per«-max per) and (new per»zmin per)) and (flag«?58) 
enl, retire prob = пем рег 
endif 
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05010 
05020 
05030 
05040 
05045 
05050 
05060 
05070 
05080 
05090 
05100 
05110 
05120 
05120 
05140 
05150 
05160 
05170 
05180 
05190 
05200 
05210 
05220 
05250 
05240 
05250 
05260 
05270 
05280 
05290 
05500 
05510 
05320 
05220 
05240 
05350 
05270 
05280 
05390 
05400 
05410 
05420 
05430 
05440 
05450 
05460 
05470 
05480 
05490 
05500 
05510 
05520 
05530 
05540 
05550 
05560 
05570 
05580 
05590 
05600 


PAGE 9 


endif 
endloop 
endproc  !(* enter data 94) 
RR ER ERRORS ORE € OUO GE OE CEI GEE Hi RIE нө кке ме 


1! 320000O00000)000)00O)ODODO0O0O0DODDOQODDDOO(DXODQOOOODDQO(PD IDOOODODO9O1OOO!9(OO1)OODOQOOO)ICUOOQOOOQDD100€ X 


1% "SUB" PROCEDURE numeric, value check ж 

1% This procedure checks that the value input is a valid ж 
[ж numeric value. If not» an error message is displayed. ж 
пома COCICECEXHE X ЭЗЕ ЕЗ ЭЕ ЗЕ BEEBE OBER EIR IH OO EN ERA IHAA- HHAH 


proc numeric, value check(new value,max, value,min value) 

S-io status 

if s-8 
print chr$(12) Z4 print 4 print 24 print Z% print Z print 
print tab(15); 4 : 
a" You have entered an alpha-numeric vs. numeric value." 
print using " Only numeric values from #.##8#" +2 
& " to #.##% may be entered." ,min, value,max value 
print Z print 4 print,4% print tab(15);"& 
a" Please press <enter> to return to the Data Menu ==>" 
input nothings 

elseif (new_value < min_value) or (new_value > max_value) 


print chr$(12) Z print Z print Z% print 27 print Z print 
print tab(15)3 & 
2" The value you have entered is outside the range" 
print tab(15); & 
& "of allowable values. Please input a numeric value" 
Print using " between %.%%% апа %.%%% for your" *& 
& " entry." ,min value,;max, value 
print Z print Z print 7 print tab(15); & 
a" Please press <enter> to return to the Data Menu ==>" 
input nothings 
endif 
endproc  !(* numeric, value check *) 


1 33€ OO XOOOUOODOOODODODDD1DSODDIODODO|OOO)OOODODOODOOOODPOHAB!OPOPYOIOOOO!Y/BOPOOOOOPOO?OOgYeeOr 


! X330O)0O0O0O0DO)1000O0)0()ODDDOOQODIOIIOIDOYUDEOUOOUODOOGQXOOOOOOXOPBHOOQ([DOYO|/OOODOOHOOOOO|OO!)COOe 


17 "SUB" PROCEDURE print data menu ж 
Я и НЫ ЕЕ ЕК0 ЯСЕ II кекке E 


proc print_data_menu 


со1а$ = ' 1. COLA = .##8' 

salary = ' 2. Salary scale increase = .###' 
discounts = * 3. Annual discount rate = .###. 
multipliers = ' 4. Annuity multiplier = .##% 

most$ = ' 5. Maximum percentage of base pay = .##%' 
oprob$ 3 ' 6. Officer retirement probability = .###' 
eprobs = ' 7. Enlisted retirement probability = .###' 
exits = ' 8. No changes or changes are complete' 
print chrs(12) 


print tab(30)3} ‘MILRET Data‘ 

print tab(10)3 & 

5" The following actuarial and economic values are currently 
Print tab(10)3 & 

& ‘stored within the MILRET program. To change a value, type' 
print tab(10); & 

4 ‘in the selection number first (i.e., from 1 to 7) and press' 
print tab(10)3 & 

& '‘<enter>. When the prompt appears, type in the new value as a' 
print tab(10); & 

& ‘decimal (e.g., .065) and press «enter» again. Repeat this as' 
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05610 
05620 
05630 
05640 
05650 
05660 
05670 
05680 
05690 
05700 
05710 
05720 
05730 
05740 
05750 
05760 
05770 
05780 
05790 
05800 
05820 
05830 
05840 
05860 
05870 
05880 
05890 
05900 
05910 
05950 
05940 
05960 
05970 
05980 
06000 
06010 
06020 
06030 
06040 
06050 
06060 
06080 
06090 
06110 
06120 
06140 
06150 
06170 
06180 
06200 
06210 
06240 
06250 
06260 
06280 
06570 
06720 
06720 
06740 
06750 
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print tab(10); & 

& 'often as necessary. Enter an "8" to return to the main menu.' 
print 

print using cola$,;cola 

print using salary$,5salary, scale incr 

print using discount$,annual disc, rate 

print using multiplier$,annuity multiplier 

print using most$,max, percent of pay 

print using oprob$,off retire prob 

print using eprob$,;,enl retire, prob 

print exits 

print 

print tab(40)3 ‘Please input a number and press <enter>.' 
endproc !(# print_data_menu *) 

| ARRIGO ана 


р ж кәс ке дА ЛНННГ 
1% PROCEDURE individual_entry_age_normal ж 
Ез: 523225512322 222555352225. IS Site | 
proc individual, entry age normal 
call individual, subprogram, credit 
call input, individual, data 
call determine, year, factor 
curr, pay for retired grade -7 current year basepayíg,;y) 
retirement, year * entry year * los 
number of years to retirement -* (retirement year - current year) 
Sal incr = salary, scale, incr 
curpay 7? curr, pay for retired grade 
Percentage. of, pay * los * annuity multiplier 
projected monthly retirement basepay = & 
& fn future value(curpay,;number, of years to retirement,;sal, incr) 
if (percentage of, pay > max, percent, of, pay) 
percentage of, pay 7 max, percent of. pay 
endif 
if (елігу уеаг>1980) 
num, Yrs to ret - number of, years to retirement 
call high, 3, pay, avg( num, yrs, to ret,curpay,;sal, incr) 
pay.basis for retirement = avg_pay 
else 
Pay.basis for retirement s projected monthly retirement, basepay 
endif 
projected annual, retirement, annuity - & 
& pay, basis, for retirement * percentage of,.pay * 12 '(months) 
рага 7» projected annual, retirement, annuity 
rle 7 remain,life expect Zadr = annual_disc_rate 
pv.ret pay at retire = & В 
& fn pv.of retirement benefits at retirement(para,;rle,;adr) 
руграг :ру ге рау аж геФЖіге 
noytr 7 number of, years, to retirement 
Pv ret pay in curr yr = à 
& fn, pv. of, retirement benefits in, current, year(pvrpar,noytr,adr) 
curr yr. norm, cost - à 
& fn current, year individual, normal, cost(pvrpar;los,;,adr) 
call prior, year, data 
if (prev. yr ind, norm cost = 0.00) then call prior. year, normal, cost 
curr yr gain or loss = сигг_ уг погт созі - ргеу уг іла погт созі 
if (defer gain or loss > (-999999)) and & 
& (defer gain,or loss « 999999) 
n * number, of, years, to, retirement * 1 
factor - l/((1*annual, disc rate )**n) 
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06790 
06800 
06810 
06840 
06850 
06860 
06870 
06890 
06920 
06950 
06940 
06960 
06970 
07040 
07050 
07060 
07070 
07080 
07090 
07100 
07110 
07120 
07120 
07140 
07150 
07160 
07170 
07180 
07190 
07200 
07210 
07220 
07230 
07240 
07250 
07260 
07270 
07280 
07290 
07500 
07510 
07520 
07525 
07350 
07540 
07350 
07360 
07370 
07380 
07390 
07400 
07410 
07411 
07420 
07430 
07940 
07450 
07460 
07470 
07480 
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appld gain, or, loss-(curr yr, gain, or loss*defer gain or, loss)&4 
& * (annual, disc, rate/( 1-factor)) 
curr, yr ind ret cost = сигг уг _погт созї + appld gain, or. loss 
target population, retiring - number of new entrants * 4 
prob of, new entrant retiring * tgt grade, prob 
current target group. cost с target population retiring * 4 
& curr yr ind, ret. cost 
endif 
call display individual, data 
call display individual, retirement, cost, projections 
call display target group retirement cost, projections 
endproc  !(* individual entry. age normal *) 


OX OC CCRCKOHOGUCRCRCHO ECC COPIED OPERE XCOUAEOOIE IHE TOIEOIEOXERHOEOSE 3663-46-36 НЕ кн нен 
1% PROCEDURE individual, subprogram, credit. ж 
(ARIE RR UUDE OE LIGIER IIH нек ы езе жж 
proc individual, subprogram, credit 

print chr$(12) 7 print Z print Z print Z print 

print tab( 10); 4 

а“ You are now in the individual MILRET subprogram. Detailed' 
print tab(10)3 4 

& ‘information for an individual retirement pay grade and specific’ 
print tab(10); & 

& 'year of service entry date is produced. 

print ^ print 7 print Z print 4 print Z print 

print tab(30)3 ' Press <enter> to continue ==>' 
input nothings 

endproc  !(* individual, subprogram credit ж) 

А A Жел мж HEE IES Re IER ILI CX неоновая 


COUR OR deri SIE BIGGIE RS SHISHA HHT 
1% PROCEDURE input, individual, data 
dPCeNGÉ OX DXDU 4 ене лое Зее с р ДЭБ Нан АА НЗ ДАНЗАН ЭЗЕ 
proc input, individual, data 
ind data, sel$ - 'O' 
While (ind, data, sel$ «» '8') 
call individual, data display 
input ind, data, sel$ 
if ind_data_sel$ = ‘1' 
Print tab(5); ‘Enter paygrade at retirement. ' 
input grades 
call determine_grade_factor 
if (g=27) then goto 7270 
los 7» avg.los, for retired grade(g) 
age - avg.age for, retired grade(g) 
tgt grade prob - target retired grade, prob(g) 
if (g>=1) and (g<=19) 
prob_of_new_entrant_retiring = enl_retire_prob 
elseif (g>=20) and (g<=26) 
prob_of_new_entrant_retiring = off_retire_prob 
endif 
call determine_life_expectancy_factor 
if (z=32) then goto 7270 
if (9>=1) апа (9<29) 
remain life expect - enl, nondis, retired, nortality(z) 
elseif (g>=10) and (g<=26) 
remain_life_expect = off_nondis_retired_mortality(z) 
endif 
elseif ind, data sel$ - '2' 
print tab(5); 'Enter year of service entry.' 
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07490 
07500 
07510 
07520 
07530 
07540 
07550 
07560 
07570 
07580 
07590 
07592 
07593 
07594 
07600 
07610 
07611 
07612 
07613 
07614 
07620 
07630 
07640 
07650 
07660 
07670 
07680 
07690 
07700 
07710 
07720 
07730 
07740 
07750 
07760 
07770 
07780 
07790 
07800 
07810 
07820 
07830 
07840 
07930 
07940 
07950 
07960 
07970 
07980 
07990 
08000 
08010 
08020 
08030 
08040 
08050 
08060 
08070 
08080 
08090 
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input entry_year 
on conv ignore 
if (entry_year>=1951) and (entry_year<=1982) 


index 


entry_year - 1950 


if (g>=1) and (g<=19) 

number. of new entrants = 1000 * enlisted accession(index) 
elseif (g>=20) and (g<=26) 

number_of_new_entrants = 1000 * officer_accession( index } 


endif 
else 
loop 


print chr$(12) 7 print ZA print A print ZA print Z print 
print tab(15);' The year-of-service-entry is outside'+é 
&' the limits of ' 
print tab(15);'the accession matrices (1951-1982) ' 4 
&'contained in the ' 
print tab(15);'MILRET program. Please enter the ! +4 
&'number of new ' 
print tab(15);'entrants in initial year of service ' +4 
&'(е.9.› 8500, 205000. )' 
input number of new entrants 7 оп conv ignore 
num new ents - number of new entrants 

until ((num, new ents»0) and (num, new ents«300000)) 


endif 


elseif ind data sel$ = 13! 
print tab(5); ‘Enter LOS for this paygrade' 


input los 


elseif ind data sel$ = (0! 
print tab(5); 'Enter age for this paygrade.' 


input age 


elseif ind_data_sel$ s '5' 
print tab(5); 'Enter remaining life expectancy' 
input remain life expect 

elseif ind_data_sel$ = ‘6' 
print tab(5)3 ‘Enter probability of new entrant retiring." 
input prob_of_new_entrant_retiring 

elseif ind_data_sels = '7' 
print tab(5)3 ‘Enter prob. of entrant retiring in tgt. grade‘ 
input tgt_grade_prob 


endif 
endloop 


endproc !(# input_individual_data 9) 


7 339)99)0OO1O)O0OOXOOXDDOOODQODDPOIDOOSIIBOO(PU!(OI|ODOMPMPGOOPEOC(O9O(OODOO[DOOQPOOQPODOP(PBOY )|)jÓC[TOOOOO(9€ 


їзє 


PROCEDURE іпдіуісча1 data display ж 


2 ЭК НЕН Нв окна кеннен енен нына ны сес? 
proc individual data display 


paygrade$=' 
entryyr$ =' 
avglos$ 4! 
avgage$ =' 
lifexpec$=s' 
newprob$ =' 

& 

retprob$ =! 

& 

ind_exit$=' 
print chr$(12) 
print tab(25); 


1. Paygrade at retirement = ###' 

2. Year of service entry * fH! 
Average LOS for this paygrade = ##.#' 

Average age for this paygrade - 

Remaining life expectancy 5 88.88! 

. Probability of new entrant ' * 2 

‘retiring =' 

7. Probability of entrant retiring in '*& 
'tgt grade =' 

8. Data entry complete' 


Oo Ui P wu 


'Individual Subprogram Data' 


print tab(10); & 
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08100 
08110 
08120 
08130 
08140 
08150 
08160 
08170 
08180 
08190 
08200 
08210 
08220 
08230 
08240 
08250 
08260 
08270 
08280 
08290 
08300 
08330 
08340 
08350 
08360 
08370 
08380 
08390 
08400 
08410 
08420 
08430 
08440 
08950 
08460 
08470 
08480 
08990 
08500 
08510 
08520 
08530 
08540 
08550 
08560 
08570 
08580 
08590 
08600 
08610 
08650 
08660 
08670 
08680 
08690 
08700 
08710 
08720 
08730 
08740 
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2" Start with item number 1 and enter the desired "Paygrade аг! 
print tab(10); & 

& 'retirement." Next enter the "Year of service entry." Data items' 
print tab(10); à 

& '3 through 7 will be supplied by the program. If you desire to' 
print tab(10); & 

& ‘change them, type in the appropriate number and press <enter>.' 
print 

print using paygrade$,grade$ 

print using entryyr$,entry year 

print using avglos$,los 

print using avgage$,age 

print using lifexpec$,remain, life expect 

print newprob$;prob of new entrant, retiring 

print retprob$;tgt grade prob 

print ind, exit$ 

print 

print tab(60); 'Please input a number and press «enter»,.' 

endproc  !(* individual data display ж) 

(ocu eae dese pe cc eo КОН Res P OU CES 


ЕЯ 363636 36-36 Ж р ме Ж Еж 55 Е-Е к кек ежен 
1% PROCEDURE determine_grade_factor x 
Зем HARE мое a зе ж e nón e ene е чке ж-е лысы е ж-е же ына D ЗЕЕ 
proc determine, grade, factor 

д=27 


if (grade$='el') then g=1 ^ if (grade$='e2') then g=2 
if (grade$='e3') then g=3 И if (grade$S='e4') then g=4 
if (grade$='e5') then g=5 Z if (grade$='e6é') then g=6 
if (grade$='e7') then g=7 Z if (grade$='e8') then g=8 
if (grade$=‘e9') then g=9 Z if (grade$=‘'wl') then g=10 
if (gradeS=‘w2') then g=11 7 if (grade$z2'u2') then g=12 
if (grades='w4') then g=13 7 if (grade$='ol') then g=14¢ 
if (grade$='ole') then g=15 Z if (grade$='o2') then g=16 
if (grade$='o2e') then g=17 7 if (grade$='o03') then g=18 
if (gradeS='o3e') then g=19 И if (grade$2z'o6') then gz20 
if (grade$-z'o5') then g=21 7 if (grade$S='o06') then g=22 
if (grade$='o7') then g=23 И if (grade$='08') then g=24 
if (grade$='09') then g=25 И if (grade$='010') then g=26 


if not ((g>=1) and (g<=26)) 
print chr$(12) Z print Z print ⁄ print 
print tab(19);' You have input an invalid entry. Please ensure‘ 
print tab(18);'that the retirement grade is a lower-case letter’ 
print tab(18);'and that the year is correct. Please press the’ 
print tab(18);'<enter> key to continue. ' 
input nothing$ 

endif 

endproc  !(* input paygrade,at retirement *) 

1 керу UR Жм жа а а и 153 жо жє eee IG C dope НОНО PE 


Б д сеа аа E AE EEEE EAE E E 25522252 22. 
1% PROCEDURE determine, life, expectancy factor ж 
(ax tie seni Ge BR Xv Xem de C e Ce RC i Men Co CX iot mee pio p gi OCCHI E 
proc determine, life expectancy, factor 
z= 32 

if (age<35.5) and (age>=34.5) then z= 
if (age<36.5) and (age>=35.5) then z= 
if (age<37.5) and (age>=36.5) then z= 
if (age<38.5) and (age>=37.5) then z= 
if (age<39.5) and (age>=38.5) then z= 


in WP eo 
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08750 
08760 
08770 
08780 
08790 
08800 
08810 
08820 
08830 
08840 
08850 
08860 
08870 
08880 
08890 
08900 
08910 
08920 
08930 
08940 
08950 
08960 
08970 
08980 
08990 
09000 
09010 
09020 
09030 
09060 
09070 
09080 
09090 
09100 
09110 
09120 
09130 
09140 
09150 
09200 
09210 
09220 
09230 
09240 
09250 
09260 
09270 
09280 
09290 
09300 
09370 
09380 
09390 
09400 
09410 
09420 
09430 
09440 
09450 
09460 


PAGE 16 


if (age<40.5) and (age>=39.5) then 
if (age<41.5) and (age>=40.5) then 
if (age<42.5) and lage>=41.5) then 
if (age<43.5) and (age>=42.5) then 
if (age<4¢.5) and (age>=43.5) then 
if (age<45.5) and (age>=44.5) then 
if (age<46.5) and (age>=4¢5.5) then 
if (age<47.5) and lage>=46.5) then 
if (age<48.5) and (age>=4¢7.5) then 2=1$ 

if (age<49.5) and (age>=48.5) then z=15 

if (age<50.5) and (age>=49.5) then z=16 

if (age<51.5) and (age>=50.5) then z=17 

if (age<52.5) and (age>=51.5) then z=18 

if (age<53.5) and (age>=52.5) then z=19 

if (age<5¢.5) and (age>=53.5) then z=20 

if (age<55.5) апа (age>=54¢.5) then z=21 

if (age<56.5) and (age>=55.5) then z=22 

if (age<57.5) and (age>=56.5) then z=23 

if (age<58.5) and (age>=57.5) then z=2¢ 

if (age<59.5) and (age>=58.5) then z=25 

if (age<60.5) and (age>=59.5) then z=26 

if (age<61.5) and (age>=60.5) then z=27 

if (age<62.5) and (age>=61.5) then z=28 

if (age<63.5) and (age>=62.5) then z=29 

if (age<64.5) and (age>=63.5) then 2=30 

if (age>=6¢.5) then z=31 

епаргос !(* determine_life_expectancy_factor *) 

— 36323 384138:1436 19446: 6-3 332138 Ж-8022-12- e -С эсэх А 
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UHHH: 
1% PROCEDURE determine_year_factor ж 
T EERE ЕЕ EO HOIBOURIENCOORIO DOO HEH BORER OUD RN HHEHHHE, 
proc determine, year, factor 

if los<22 then y=1 7 if los<24¢ and los>=22 then y=2 

if los<26 and los>=24¢ then y=3 7 if los<28 and los>=26 then y=4 

if los<30 and los>=28 then y=5 Z% if los>= 30 then y=6 

епаргос !(* determine_year_factor *) 

эбе HEH a нн ны нес 


1 330O9BOOOXODOHOODOOOOOOOOOOOOOOOO!IOHOIHODOOHOOOOH(OOOOOPHOOOOPHOOOHOOHOe)ed/zr 
T% FUNCTION future_value ж 
! X3OGOGODOODODOOOOOOOODOOOOOOOOODOOO)EOODHYOOO)OX!IOHDOO)C]YODIOOXODOOHPOOOXOPOOOOPOOPOH/OOO) 
def fn future value(pv,;n;i) | 


! pv. = current basepay at retirement paygrade 
! n * number of years to retirement 
! i = annual discount rate 


fn_future_value с руж(1 + i )#€n 
fnend 
1 256 КЕЗ е КЕБЕ Кез енен нд мын а С 


1 259636363636364646363643636-3638-36-283:-22-34 3636-3636 26305636-36 46-36-3636-36-11-2225 KC IDOPIIOERHCU HOEOOPIBUOOEXD)IIU GR Ee 
1% PROCEDURE high_3_pay_avg 
(эе This procedure computes the average of the last 3 years 
"еж basepay for those personnel who entered entered the service 
f% after 1980. It assumes that the highest 3 pay years are the 
'* last 3 years of an individuals career. 
T HCSEXEIOIIOUIOUGQOCIEOEJOODOC HODOO( OHIO ЕЕВС Е 
proc high_3_pay_avg(num_yrs>pay,ssincr ) 

yrs = (num_yrs - 2) 

two yr prev pay = fn_future_value( pay>,yrs,ssincr ) 


X X x x* x 


ЕЛ 


09470 
09480 
09490 
09500 
09510 
09520 
09520 
09560 
09570 
09580 
09590 
09600 
09610 
09620 
09620 
09640 
09650 
09660 
09670 
09680 
09690 
09720 
09720 
09740 
09750 
09760 
09770 
09780 
09790 
09800 
09810 
09820 
09820 
09840 
09870 
09880 
09890 
09900 
09910 
09920 
09930 
09940 
09950 
09960 
09970 
09980 
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оле yr prev pay = two yr prev pay*(l * ssincr) 
retirement yr pay 7 one yr prev pay*(l * ssincr) 
sum of paysz(two yr prev,pay*one yr prev pay*retirement yr. pay) 
avg pay 7 sum of. pays/3 
endproc  !í(* high, 3 year averaging *) 
ен 255333552222 522222222221 525 4- 


CO Ee HI SAAR EE ESE ORE Og IRE OS IIIS 
1% FUNCTION pv_of_retirement_benefits_at_retirement ж 
ЖИ iE IE AE IERIE AEA Eh Je SIRI Ж 35-56 599 
def fn, pv. of retirement benefits at retirement(pmt,n,;i) 
! pmt = projected annual retirement pay in retirement year 
n = remaining life expectancy in years 
i = annual discount rate 
pv = "present" value of benefits in retirement year 
denominator = ((1+1і )жжп) 
py = pmt * ((1-(1/denominator ))/i) 
fn_pv_of_retirement_benefits_at_retirement = pv 
fnend 
ee ee none prp pto so sica og ges iege s ээс 


жас жасыра Беер еее Е ЭЗЕ 36 
+ FUNCTION pv.of.retire benefits in current, year ж 
(OMA OCHOA Ow HOW Oi dos HH ci ese IEE е I ee OIE 
def fn, pv. of, retirement benefits in current, year(fv,n,i) 
! fv = "present" value of benefits in retirement year 
= annual discount rate 
= number of years to retirement 
! pv = present value of benefits in current year 
ру < Ғу/((1%1)ел) 
Еп pv.of retirement, benefits in current year = ру 
fnend 
(OX m нч мое ее осна зыны Ae € Diez o JEKOHB|DUUIHE HOCHOPHOEOH|RIBOC|OII| SC SHE 
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нса еса ае ЕТЕ АС ОР дн СЗЗ 2122221. 
158 FUNCTION Ёл current, year, individual, normal cost ж 
ЖК КЖ ИЖ К 36364421 желек 1-КЕ Ж зен к ежен 
def fn current year, individual. normal, costí(pv,;n,;i) 

! pv = present value of future retirement benefits 

! i = annual discount rate 

! n = number of periods (length of service) 

! pmt = current year normal cost payment 

denominator = (((1+4i )#€nJ)-1) 

pmt = ру * (i/denominator ) 

fn_current_year_individual_normal_cost = pmt 
fnend 


09990 1 жэгэсэсэсэ66646363636464646464646-46-36-36-46-36-36-36-36-36-36-36-36-36-36-36-36 36-36-46-36-36-46-36-36-36-36-36-36-36-36-36-36-36-36-36-36-36-36-36-36-36-36-36-36-36-36-3636 


10000 
10090 
10100 
10110 
10120 
10130 
10150 
10160 
10170 
10180 
10190 
10200 
10210 


каяа ea e «ЖІ жа ы е-е. ope Oe ei ект Же е кн жене 
1 PROCEDURE prior year, normal cost # 
авы 
proc prior_year_normal_cost 


pr_pay = prior_year_basepay(g>y) 
pr_yrs = (number_of_years_to_retirement + 1) 


incr 3 prev yr salary scale incr 
prior proj.pay 7 fn,future, value(pr pay,;pr. yrs;incr) 


prior yr - (current year - 1) 
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10220 if (prior уг > 1980) 


10250 call high, 3 pay avg(pr.yrs»pr. Pay»incr) 
10240 prior pay basis = аус рау 

10250 else 

10260 prior pay basis - prior proj. Pay 

10270 

10280 endif 

10290 


10300 pr proj ann ret pay -» prior, pay basis * percentage of pay * 12 
10310 PP Pr Proj ann, ret pay 

10220 le 7 prev.yr remain, life expect 

10550 dr с ргеу yr annual, disc rate 

10340 Prior ру аж ге = & 

10350 & fn,pv of retirement benefits at retirement(pp,;le,;dr) 
10560 prev yr ind norm cost - & ; 

10370 & fn current, year individual, normal costí(prior pv at ret,los,dr) 
10380 

10400 endproc  !(* prior, year normal cost *) 

10410 x3GOOOOPUOPCODOODOOODODEO ӘК КЕЗЕ ЕК с GR GH. 


10420 
10540 tx PROCEDURE display individual data ж 


10550 Ге ІЗ 22525222 222385352522 36 23 аа 
10560 proc display individual data 

10570 . print chr$(12) 

10580 . print tab(35)3 ‘Individual Data Summary' 

10590 print 

10600 Print using paygrade$,;,gradeS$ 

10610 print using entryyr$,entry year 

10620 print using avglos$,los 

10630 print using avgage$,age 

10640 print using lifexpec$,remain_life_expect 

10650 print newprob$;prob_of_new_entrant_retiring 

10660 print retprob$;tgt grade prob 

10670 print tab(14);'8. Current year -';current year 

10680 Print tab(14);'9. Cola -';cola 

10690 Print tab(123);'10. Salary scale increase *';salary, scale incr 
10700 print tab(13);'1ll. Annual discount rate -';annual disc, rate 

10710 print tab(13);'12. Annuity miltiplier -';annuity multiplier 

10720 print tab(13);'12. Maximum 4 of basepay -';max, percent of pay 
10750. — print 7 print 

10740 print 7 print 

10750 print tab(45); ‘Press <enter> to continue 2=3=>' 

10760 input nothing$ 

10770 endproc !(* display_individual_data ж) 

ӘРЕГЕЕЗЗ:2:3523222 222222522255: HEHE BHBHEPERREHSHHE: 
10790 

10810 энккөекзже ээзвеежеек ке кенен жәе еке к ков не АВ ВНИЗ д 
10820! procedure display_individual_retirement_cost_projections * 
10820! эӨөвежеке е езе BRB RHE PORE ROBE Fr EIB кен 1 HORI YO OB e| ot 
10840 proc display individual, retirement cost projections 

10850 print chr$(12) 

10860 print tab(20); 'Individual Retirement Cost Projections' 

10870 print 

10880 а$ = ' 1. Current monthly basepay at retirement ' 

10890 b$ = 'раудгаае = $##111.114' 

10900 print using a$ * b$; curr, pay for retired grade 

10910 с$ = ' 2. Projected monthly basepay at retirement ' 

10920 d$ = 'раусгаае = $1117.11 ' 

10930 print using c$ * d$; projected monthly retirement basepay 
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10940 eS = ' 3. Pay basis for retirement = S###R#. ##' 

10950 print using e$; pay basis for retirement 

10960 print ' 4. Percentage multiplier 7» 'j;percentage of pay 
10970 #$ = ' 5. Projected yearly retirement annuity = S##2##%.#2' 
10980 print using f$; projected annual retirement annuity 

10990 9$ = ' 6. "Present" value of retirement benefits in ' 


11000 h$ = ‘retirement year 2 $m. GG 

11010 print using 9$ + h$j5pv ret рау at retire 

11020 1$ = ' 7. Current present value of retirement 
11030 j$ = ‘benefits = S##F#RSS. #2 ' 

11040 print using i$ * j$5 pv ret pay in curr. yr 

11050 print using & 

11060 & ' 8. Current year individual normal cost = S####2.##'; & 
11070 & curr_yr_norm_cost 

11080 print Z print Z print Z print 

11090 print tab(45)3} ‘Press <enter> to continue ===>' 

11100 input nothings 

11110 еларгос !(* display_individual_retirement_cost_projections *) 


11130 
11140! 555 66%5555Ө5ек 99POO)OUOUOOXDDOQIDODXDDODOPOQODDXDOIPOPBOOQPOQPOdXQOq—DOpUX|!|OXO?OOQOQ([D)POIO!XdOO|OOO(POeOO deer 
111501» procedure display target group retirement cost projections ж 


о паа ж OE o 6 Же ж Эх же зе кс Ж-Е Ai RII BIBI BIE HIRE 
11170 proc display target group retirement,cost projections 

11180 print chr$(12) 

11190 print tab(20); 'Target Group Retirement Cost Projections' 

11200 print 

11210 К$ = ' 1. Current year individual normal cost ............'*& 
11220 & '$ 92,222,222У.%%9" 

11230 print using k$;curr, yr norm cost 

11240 1$ = ' 2. Previous year individual normal cost ...........'*& 
11250 & "5 92,222,222У.%%9! 

11260 print using l$;prev, yr ind,.norm cost 


11270 м$ =! 3. Current year gains cr 1оЗзез5 .........››.›„„„‚„ PA 
11280 & '$ 9222,222У.%%9! 

11290 print using тЭусигг уг даїпл ог 10353 

11300 n$ = ' 4. Deferred. gains or losses ......--г. 2212 PA 
11310 5 15 9222,222У.%%9! 

11320 print using n$,;defer. gain, or loss 

11330 os = ' 5. Аррї1ед сал ос 10 ЗЭН 


11390 8 15 92,222,222У.%%9" 

11350 print using o$; appld,gain or loss 

11360 p$ = ' 6. Current year individual retirement cost ........'*& 
11370 & '$ 2922,222,222У.%%9" 

11580 print using p$;curr, yr ind ret cost 


11390 q$ = ' 7. Number of new entrants in entry year ...........'*& 
11400 5" 2222,2220! 

11910 print using q$,;number of new entrants 

11420 r$ = ' 8. Тагде%Ұ рорч1аФЖіол геЖігіпд ..................... “%4 
11430 & ' 2922 ,ZZZ9' 

11440 print using r$;target population retiring 

11450 3$ = ' 9. Current target group retirement cost ...........'*& 


11460 4 (592,222,222,222У.%%9" 

11470 print using s$;current, target group cost 

11480 print 4 print 4 print / prince print 

11490 print %«ар(45)) ‘Press <enter> to continue ==>' 

11500 input nothings 

11510 endproc  '(* display target group retirement cost projections ж) 
20020020 LOREM MC ois A REDE IHR Ы ЖА Ұ 6 ӘЗ ын ая ЖЕНЕ нк ежен 
11525 
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115%0'% PROCEDURE prior, year, data ж 
11550 ! 235 35:2:255:2 225252225 52522522225325222 2 3555232 200 


11620 
11620 
11650 
11660 
11670 
11690 
11700 
11710 
11720 
11730 
11740 
11750 
11760 
11770 
11780 
11800 
11810 
11820 
11830 
11850 
11860 
11870 
11880 
11900 
11910 
11920 
11930 
11950 
11960 
11970 
11980 
11990 
12000 
12020 
12030 
12040 
12050 
12060 
12070 
12080 
12090 
12100 
12110 
12120 
12130 
12140 
12150 
12160 
12170 
12180 
12190 
12200 
12210 
12220 
12230 
12260 
12262 


proc prior_year_data 
prev. yr ind norm cost = 0.00 Z defer_gain_or_loss = 0.00 
prev_yr_annual_disc_rate = annual_disc_rate 
prev_yr_salary_scale_incr = salary_scale_incr 
prev_yr_remain_life_expect = remain_life_expect 
on conv ignore 
data_sel$ = 'Q' 
while (data_sel$<>'‘'6' ) 
call print_prior_menu 
input data_sel$ 
if data_sel$='1' 
print tab(05); & 
&'Enter previous year individual normal cost (e.g., 5822.6).' 
input prev yr ind norm cost 
elseif data sel$-'2' 
print tab(05); & 
& 'Enter any deferred gains or losses (e.g.,;, 127.294).' 
input defer gain or loss 
elseif data_sel$='3' 
print tab(05); & 
& ‘Enter previous year salary scale increase (e.g., .045).' 
input prev, yr salary, scale, incr 
elseif data_sel$='4' 
print tab(05); & 
& 'Enter previous year annual discount rate (e.g., .072).' 
input prev. yr, annual, disc, rate 
elseif data, sel$-'5' 
Print tab(05); & 
& ‘Enter previous year life expectancy (e.g., 31.25).' 
input prev_yr_remain_life_expect 
endif 
endloop 
endproc !(* prior_year_stuff *) 
proc print_prior_menu 


руіпс$ = ' 1. Previous year individual normal'*& 

& ' cost = STIS B 

dgol$ = ' 2. Deferred gains or losses = S#####.#F' 
pyssi$ = ' 3. Previous year salary scale increase = .#t#' 
руааг$ = ' 9. Previous year annual discount rate = .8#8' 
pyle$ = ' 5. Previous year life expectancy = ##.##' 
exit$ = ' 6. No changes or changes are complete' 


print chr$(12) 

Print tab(25); ‘Previous Year Normal Cost Data' 

print 

Print tab(10); & 

а! The previous year individual normal cost will be calculated' 
print tab(10); & 

& 'based on the current year actuarial assumptions and other data' 
print tab(10); & 

& 'displayed below. However, different values may be entered by' 
print tab(10); & 

& ‘selecting the appropriate number, pressing «enter», and then' 
Print tab(10); & 

& 'entering your data. Enter any known deferred gains/losses.' 
Print tab(10); & 

& 'If you enter a value for previous year, it will be used instead' 
Print tab(10); 2 
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12264 8 ‘of one being computed by the program." 

12270 print 

12280 print using pyinc$,prev yr, ind norm cost 

12290 print using dgol$,defer gain or. loss 

12300 print using pyssi$,prev yr salary scale incr 

123110 print using pyadr$,prev, yr annual disc rate 

10320 print using pyle$,;prev, yr remain life expect 

12330 print exit$ 

$3910 print 

4235920 print tabí40); 'Please input a number and press «enter». 

43930 endproc '!í(* print,prior menu *) 

ДУБ) RR IRR oe deo esci HE Ue EXC CH а 5 5% Я3х > Ежен 
43960 

50000 T HEREHERE EEE E EE EE IEE M EE AE IEE EEE DE EAE IE SIGIR RI EIR EX IOXEXEXEXEXEXOOOOOOCODBE 
50010!x PROCEDURE aggregate entry age normal x 
50020 ! «3C НОНО ОЕ НЕ ОЕ C(COCIGEXCICXEODOE IECRCIOXCI'C XE 36-36-36-36 36-26-36-36 3636-36-36 36-36 Э6-36-36-36-36-36-38-36-36-3С 3634-36-36 36 
50030 proc aggregate entry age normal 

50040 call aggregate curr data entry 

50050 call aggregate prev and total data entry 

50060 endproc '!í(* aggregate entry age normal ж) 


50065 
О а а ас сече а Ge WII CE On n MEO ACCU Жы Remp e X ARR IC Е Е ик 
50080 !* PROCEDURE aggregate curr, data entry x 


5020901 өкнжкк же же ЖЕ Л ЕЕВС XOODOOEOXODOOOOHOEOOOOOOCO!O|U)OOOOO|G||O 
50100 proc aggregate curr, data entry 

50110 annual disc rate - .060 

50120 defer, gain or loss = 0.00 

50190 on conv ignore 4 on ioerr ignore 

50150 data sel$ - 'O' 

50160 while (data sel$«»5'6') 

50170 call print curr agg menu 

50180 input data sel$ 

50190 if data sel$-:'l' 


50200 print tab(05)3 ‘Enter present value of future benefits.' 
50210 input pres, val of fut ben 

50220 norm cost per fac - pres val of fut ben/pres val, of fut comp 
50240 elseif data_sel$='2' 

50250 print tab(05); ‘Enter present value of future compensation. ' 
50260 input pres_val_of_fut_comp 

50270 norm_cost_per_fac = pres_val_of_fut_ben/pres_val_of_fut_comp 
50280 elseif data_sel$='3' 

50300 print tab(05)3; ‘Enter new normal cost % factor le.g., .526).' 
50310 input new_norm_cost_per_fac 

50320 norm_cost_per_fac = new_norm_cost_per_fac 

50330 elseif data_sel$='4¢' 

50350 print tabí05); ‘Enter current FY total base pay.' 

50360 input cur_fy_tot_bp 


50370 endif 

50380 endloop 

50390 endproc !í* aggregate curr data entry *) 

DOG) T ха жен © RH EERE e cem ЖЖ з Зее Е ЕЕ ЕЕ 36-38-36-36-34-3-2-8-36-8-6--3-3С 


50410 
Be я ям жи NSEC Jb Rei. cae EMI 
504 30 !* PROCEDURE print curr agg menu ж 


40240) 1 Re IS REE Ee IE AE RO HORE HARE RC HC ЭЕ e CY ЭЗЕ s CHO Ro EXPO 
50450 proc print curr agg menu 

50460 cur fy norm cost - norm cost per fac * 2 

50470 4 cur fy tot bp 

50680 pvofb$ s ' 1. Present value of future benefits .......'*& 

50490 &'..... $39222,222,222,222V.839' 
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50500 pvofcs = ' 2. Present value of future compensation ...'+& 
50510 2"...., З4222,222,222,222У.854! 

50520 ncpf$ = ' 3. Normal cost percentage factor ..........'*& 
50530 4"..... ЗУ. 2.2.2.23 ' 

50540 cfytps = ' 4. Current FY total base pay .............. +8 
50550 3"..... З4222,222,222,222У.889" 

50560 cfyncs = ' 5, Current FY active force normal cost ....'*& 
50570 &'..... %29222,222,222,222У.%%9" 

50580 exits = ' 6. No changes or changes are complete’ 

50590 print chr$(12) 

50600 print tab(25); 'Aggregate Current FY Data' 

50610 print 

50620 print tab(10)3 4 

50630 2" Enter the present value of future benefits, the present ' 
50660 print tab(10); & 

50650 & 'value of future compensation, and the current FY total base' 
50660 print tab(10); & 

50670 & ‘pay. The normal cost percentage factor and the current FY ' 
50680 print +аЬ( 10); & 

50690 & 'active force normal cost will be computed. If you desire to ' 
50700 print +аЬ( 10); & 

50710 & 'change the normal cost percentage factor, do so and a new ' 
50720 print tab(10); & 

50730 & ‘active force normal cost will be computed.’ 

50740 print 

50750 print using pvofbs,pres_val_of_fut_ben 

50760 print using pvofc$,;pres, val of fut comp 

50770 print using ncpf$,norm cost, per, fac 

50780 print using cfytp$,cur, fy tot bp 

50790 print using cfync$,cur fy norm cost 

50800 print exit$ 

50810 print 

50820 print tab(40); 'Please input a number and press «enter». 

50830 endproc !(* print, curr, agg menu *) 


50840 ! 9989090991300 900)0)00C(OODOOO90000)0O0)0O00O0O)0O00O0O)O0(O)0O0O0ODOODXOODOOQPOPOPOpOO!OOQ|OOOOO!|OO!OgO!OOdetr 


50850 


50860 ! 38909O90900900)0])0900O0O9OOOO9909000PODODOO0O0O00D0)OODDOODOQODOODODODOpOIPOOOOOPOG|!OODOQ(PQOS)O|O9O!O9O)O!|O9t 


508701 
50880 30)889800800)0)8O0OOO000O/OPDOOPBOOOOOÓOOOOOOOOOOOOOOOOCOO/OO!O/OOO/BOOOOO/O|/|O!/IOp|Oeg|eO/dex 


50890 proc aggregate prev and total data entry 


50910 on conv ignore 
50920 data sel$ - 


PROCEDURE aggregate prev and total data entry * 


4 on ioerr ignore 
“0! 


50950 while (data, sel$«»'8') 


50940 call print prev and total agg menu 

50950 input data, sel$ 

50960 if data sel$-'1' 

50970 print tab(05); 'Enter previous FY normal cost percentage.' 
50980 input prev fy norm, cost, per 

50990 prev fy norm cost - prev fy norm, cost per * prev fy tot bp 
51000 cur fy gain loss -7 (cur, fy. norm, cost - prev fy norm, cost) 
51020 elseif data, sel$-'2' 

51030 print tab(05); ‘Enter previous FY total base pay.' 

51040 input prev_fy_tot_bp 

51050 prev_fy_norm_cost = prev_fy_norm_cost_per * prev_fy_tot_bp 
51060 cur, fy gain, loss = (cur_fy_norm_cost - prev_fy_norm_cost) 
51080 elseif data_sel$='3' 

51090 print tab(05)3 ‘Enter previous FY active force normal cost.' 
51100 input new_prev_fy_norm_cost 

51110 prev_fy_norm_cost = new_prev_fy_norm_cost 

51120 cur_fy_gain_loss = (cur_fy_norm_cost - prev_fy_norm_cost) 
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51140 
51150 
51160 
51170 
51190 
51200 
51210 
51220 
51250 
51240 
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elseif data_sel$='¢' 
print tab(05)3} ‘Enter current FY actuarial gains/losses.' 
input new_cur_fy_gain_loss 
cur_fy_gain_loss = new_cur_fy_gain_loss 
elseif data sel$-'5' 
print tab(05); 'Enter any deferred gains or losses.' 
input def gain. loss 
endif 
endloop 
endproc 


20052 4 хе nnnc Dd 


51260 


51280! PROCEDURE print_prev_and_total_agg_menu ж 
SE RII HE III Sr IEEE EEO HERE de SSH HLH HEHEHE 


51300 
51320 
51330 
51340 
51350 
51360 
51370 
51380 
51390 
51400 
51410 
51420 
51430 
51440 
51450 
51460 
51470 
51480 
51490 
51500 
51510 
51520 
51530 
51540 
51550 
51560 
51570 
51580 
51590 
51600 
51610 
51620 
51630 
51640 
51650 
51660 
51670 
51680 
51690 
51700 
51710 
51720 
51730 


proc print_prev_and_total_agg_menu 

cur_fy_gain_loss = cur_fy_norm_cost - prev_fy_norm_cost 
cur_fy_gain_loss_appld = (cur_fy_gain_loss + def_gain_loss) * & 
& (annual, disc, rate/( 1-( 17C (1*annual, disc, rate )*«20)))) 

cur , fy tot ret cost - cur fy norm, cost * cur, fy даїп 1055 арр14 


рупср% 2" 1. Previous FY normal cost percentage .....'*& 
122000 QV.Z22223' 

pytbps = ' 2. Previous FY +о+а1 Базе рау.............' +& 
&'..... $3222,222,222,22Z2V . 889" 

РУЁпс$ = ' 3. Previous FY active force normal cost ...'*& 
&'..... $39222,222,222,222V.889' 

cyagl$ s ' 4. Current FY actuarial gains/losses ......'*& 
&'..... $9222,222,222,222V . 8212' 

defgl$ = ' 5. Deferred даіпз ог 1о5563 ...............!%8 
&'..... 59222,222,222,222У.%%9" 

cyglas = ' 6. Current FY gains/losses applied ....... ~'+8 
&'..... 3422122,222,222,222Ч.88594" 

сү+гс$ = '* 7. Current FY total retirement cost .......'*& 
&'..... %59222,222,222,222У.%%9! 

exit$ = ' 8. No changes or changes are complete' 


print chr$(12) 

print tabí(16); 'Aggregate Previous FY and Current FY Total Data’ 
print 

print tab(10); 4 

&' Enter the previous FY normal cost percentage, the previous' 
print tab(10); 4 

& ‘FY active force normal cost, and any deferred gains or losses' 
print tab(10); & : 

& 'to compute the previous FY active force normal cost, current' 
print tab(10); & 

& 'gains/losses applied, and the current FY total retirement cost.' 
print 

print using pyncp$,;prev fy norm, cost per 

print using pytbp$,prev fy tot bp 

print using pyfnc$,prev fy norm,.cost 

print using cyagl$,cur fy gain, loss 

print using defgl$,def gain.loss 

print using cygla$,cur, fy gain, loss, appld 

print using cytrc$,cur,fy, tot ret cost 

print exit$ 

print 

print tab(40); 'Please input a number and press «enter». 

endproc !(* print prev and,.total agg menu *) 


51740 
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60000 
60010 
60020 
60030 
60040 
60050 
60060 
60070 
60080 
60090 
60100 
60110 
60120 
60130 
60140 
60150 
60160 
60170 
60180 
60190 
60200 
60210 
60220 
60230 
60240 
60250 
60260 
60270 
60280 
60290 
60300 
60310 
60320 
60330 
60340 
60350 
60360 
60370 
60380 
60390 
60400 
60410 
60420 
60430 
60440 
60450 
60460 
60470 
60480 
60490 
60500 
60510 
60520 
60530 
60540 
60550 
60560 
60570 
60580 
60590 
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1 339100900009000000O000000)000])80)0)0O000O0DO0O0X!OQOOOO0O0O0O(1DOODDQODOOODOODOO)0O0O0O0)0O0001|!Í0|9)|w0eo 


1% 


PROCEDURE expanded multi, year individual normal ж 


TRIER HERETO IEE EE Әс ЭК ЖӘ же хо ее 77 
proc expanded multi year individual, normal 


print chr$112) Ж ргїп* X print 4 print 

print tab(10); & 

& ' You are now in the multiyear expanded individual normal cost' 
print tab(10)3 & 

& ‘portion of the program. Note that in this section an answer of' 
print tab(10)3 & 

& 'O (zero) to an adjustment question means no change. ' 

print 7 print 

Print ‘Input desired discount rate as decimal (e.g. .08). 

input di 

print ‘Input desired rate of salary increase as decimal (e.g. .055). 
input in 

print ‘Input desired A rate of retired pay per year of duty (e.g. .02! 
input dl 

print ‘Input desired maximum 4 of pay basis at retirement (e.g. .75). 
input dm 

print 'Input minimum los required to retire (e.g. 20). 

input mrt 

print 'Input adjustment to entrant retirement probability for officer: 
print ‘{e.g. ~.02). The baseline value is 0.4%. 

input pror 

print ‘Input adjustment to entrant retirement probability for' 

print ‘enlisted personnel. 

print '(e.g. -.02). The baseline value is 0.12. 

input proq 

print 'Input adjustment to LOS and age at retirement (e.g. -2). 
input adj 

print ‘Input adjustment to life expectancy at retirement (e.g. +3). 
input long 

Print'If you wish to see only summary totals, type sum.' 

print 'If you wish to see full detail, type detail.’ 

input c$ 

delt=1 

g=99 

tttrc-0 

y371953 

pgs='el' 

print 99G88800808OOOO0080080006OOOO/P7OOPOIOPHPBOOOPO/OYBOO/OOHPOpOO!OOOOÓIO/OOO/OOOÓCIO!OAged) ' 
ttrc-0 

if (pg$='el') then 


if (pg$='e2') then 
if (pgs='e3') then 
if (pgs='e¢') then 
if (pgs='eS') then 
if (pgs='e6é') then 
if (pg$='e7') then 
gs='e8') then 
if (pgs='e9') then 
if (pgs='wl') then 
if (pgs='w2') then 
if (pgs='w3') then 
if (pgS='w4') then 
if (pg$='ol') then 


if (p 


ыы ыы © ФО м м м = 


чачалчачччччаччлхчлчлч Qq 
+ оч Со © 


if (pgs='ole') then g=15 
if (pgs='o2') then g=16 
if (pgs='o2e') then g=17 
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60600 
60610 
60620 
60630 
60640 
60650 
60660 
60670 
60680 
60690 
60700 
60710 
60720 
60730 
60740 
60750 
60760 
60770 
60780 
60790 
60800 
60810 
60820 
60830 
60840 
60850 
60860 
60870 
60880 
60890 
60900 
60910 
60920 
60930 
60940 
60950 
60960 
60970 
60980 
60990 
61000 
61010 
61020 
61030 
61040 
61050 
61060 
61070 
61080 
61090 
61100 
61110 
61120 
61150 
61140 
61150 
61160 
61170 
61180 
61190 


if (pgs='03') then g=18 

if (pg$='o3e') then g=19 

if (pgs='oG@') then g=20 

if (pgs='0o5') then g=21 

if (pg$=‘o6') then g=22 

if (pg$='o7') then g=23 

if (pgs=‘'o8') then g=24¢ 

if (pgs='o9') then g=25 

if (pg$='old') then g=26 

if (g=99) then goto 60370 

los-avg los for retired gradeí(g)*adj 
if (los <mrt) then los=mrt 

if (los<22) and (los>=20) then 
if (los<24) and (los>=22) then 
if (los<26) and (los>=24) then 
if (los<28) and (los>=26) then 
if (los<30) and (los>=28) then 
1f (los>=30) then 1=6 
bpzcurrent year basepay(í(g;1l) 
cf-1983 

rf=lostys 

ПЕГЕ-СЕ 

pp=bp 

ог 1= to n 

tp-pp*in 

pp=tptpp 

next i 

fac -105 * dl 

if (fac»dm) then faczdm 

if (ys»1980) then goto 61650 
annzfac*pp*12 

if (pg$-'el') then goto 61500 
if (n«O) then goto 61820 


нні 
uU oH iow ои 
(л ++ 4ч м юа 


if (d(g)+adj<mrt) and (mrt>20) then goto 61780 


аў=#(9 )+аај 

if (ag<17+mrt) then ag=17+mrt 
if (ag<37) and (ag>=36) then 
if (ag<38) and (ag>=37) then 
if (ag<39) and (ag>=38) then 
if (ag<40) and (ag>=39) then 
if (ag<4¢1) and (ag>=40) then 
if (ag<42) and (ag>=41) then 
if (ag<43) and (ag>=42) then 
if (ag<4¢¢) and (ag>=43) then 
if (ag<4¢5) and (ag>=44¢) then 
if (ag<46) and (ag>=45) then 
if (ag<47) and (ag>=46) then 
if (ag<4¢8) and (ag>=47) then z=12 
if (ag<4¢9) and (ag>=48) then z=13 
if (ag<503 and (ag>=49) then z=14 
if (ag<51) and (ag>=50) then z=15 
if (ag<52) and (ag>=51) then 2=16 
if (ag<53) and (ag>=52) then 2217 
if (ag<54) and (ag>=53) then z=18 
if (ag<55) and (ag>=54) then z=19 
if (ag<56) and (ag>=55) then z=20 
if (ag<57) and (ag>=56) then z=21 
if (ag<58) and (ag>=57) then z=22 
if (ag<59) and (ag>=58) then z=23 
if (ag<60) and (ag>=59) then z=24% 


" u иы и 
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61200 
61210 
61220 
61230 
61240 
61250 
61260 
61270 
61280 
61290 
61300 
61310 
61320 
61330 
61340 
61350 
61360 
61370 
61380 
61390 
61400 
61410 
61420 
61430 
61440 
61450 
61460 
61470 
61480 
61490 
61500 
61510 
61520 
61530 
61540 
61550 
61560 
61570 
61580 
61590 
61600 
61610 
61620 
61630 
61640 
61650 
61660 
61670 
61680 
61690 
61710 
61720 
61730 
61740 
61750 
61760 
61770 
61775 
61780 
61790 
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if (ag<61) and (ag>=60) then z=25 
if (ag<62) and (ag>=61) then z=27 
if (ag<63) and (ag>=62) then z=28 
if (ag<64) and (ag>=63) then z=29 
if (ag<65) and (ag>=64) then z=30 
if (ag>=65) then z=31 

if (g<=9) then lite(z) 

if (g>=10) then li=oz(z) 
li=litlong 

4:(1441 ЭӨӨ11 
Pre-ann*((1-(1/4))0/di) 
t-((1tdi)**10s)-1 

nc=prex(di/t ) 

гс=пс 

if (g>=20) then goto 61380 

if (g«20) then proz.12 

if (g<20) then prop=proq 

goto 61400 

if (g>=20) then pro=.4% 

if (g>=20) then prop=pror 
pro=(protprop J#delt 

delt=1 
tgt=target_retired_grade_problg) 
if (ys>1950) and (ys<1983) then goto 61750 
pec-pro*tgt*new 

trc-pecx*rc 

ttre=ttre+tre 

if (c$='sum') then goto 61490 
print using "2 2 ЇЕ 2 8 0 0 8 !,росЭ5)лсу)ёгс 


goto 61850 
Print 'Year of Entry = ';уз 
if (c$2'sum') then goto 61640 


print ‘DISCOUNT RATE ='3di 

print ‘SALARY SCALE ESTIMATOR = ';in 

print ‘ADJUSTMENT TO ENTRANT RETIREMENT PROBABILITY FOR' 
print ‘OFFICERS = ';ргог 

print 'ADJUSTMENT TO ENTRANT RETIREMENT PROBABILITY FOR' 
print ‘ENLISTED PERSONNEL = "ургсоч 

print 'ADJUSTMENT TO LOS AND AGE AT RETIREMENT = ';adj 
print ‘ADJUSTMENT TO LIFE EXPECTANCY AT RETIREMENT = “%1ол4 
print ‘RETIREMENT PAY BASIS PER YEAR OF SERVICE = '3dl 
print ‘RETIREMENT PAY CEILING AS PERCENTAGE OF BASIC = ';ал 
print 'MINIMUM LOS FOR RETIREMENT с “злг% ` 

print 'PAYGRADE NORMAL COST TOTAL COST' 

goto 60920 

азл-2 

rp-bp 

for k=1 toa 

vp-rp*in 

rp=vptrp 

next k 

5р=(ілжгр )+гр 

pp=(sp+rp+pp )/3 

goto 60900 

if (g>=20) then new=1000*0fficer_accession(ys-1950 } 

if (g<20) then new=1000#enlisted_accession( YS-1950 ) 

goto 61440 

average lossavg los for retired grade(íg) 

ag*avg age for retired grade(g)*tmrt-average los-adj 

REM FORMULA TO AJD ATTRITON IF AVG LOS < MLOS FOR RETIREMENT 
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61800 4в1%:1.00%%(пг%-ауегаде 1оз5-а4)) 

61810 goto 60950 

61820 пс-0 

61830 +гс=0 

61840 goto 61460 

61850 IF (pg$='010') THEN GOTO 62100 

61860 IF (pg$='o9') THEN PGS='010° 

61870 IF (pg$='08') THEN PGS='09' 

61880 IF (pg$2'o7') THEN PG$-'08' 

61890 IF (pg$='06') THEN PGS='07' 

61900 IF (pg$='o5') THEN PGS='06' 

61910 IF (pg$2'o4') THEN Рб$='05' 

61920 IF (pg$='o3e') THEN PG$-'O6' 

61930 IF (pg$='o2e') THEN PG$='O3E' 

61940 IF (PG$='O1E') THEN PGS='O2E' 

61950 IF (PGS='WN4') THEN PGS='O1E' 

61960 IF (PG$='W3') THEN PGS='WG' 

61980 IF (PG$2'W2') THEN PGS='W3' 

61990 IF (PGS$='W1') THEN PGS='W2' 

62000 IF (PGS='E9') THEN PGS='H1' 

62010 IF (PG$2'E8') THEN PG$-'E9' 

62020 IF (PG$2'E7') THEN PG$-'E8' 

62030 IF (PG$='E6') THEN PGS='E7' 

62040 IF (PGS='E5') THEN PGS='E6' 

62050 IF (PGS='E4') THEN PGS='ES' 

62060 IF (PGS$='E3') THEN PGS='ES' 

62070 IF ( PGS$='E2') THEN PGS='E3' 

62080 IF ( PGS='E1') THEN PGS='E2' 

62090 GOTO 60430 

62100 PRINT USING 'TOTAL YEAR GROUP COST = S®###888282' 5s TTRC 
62110 TYTRC=TITRC+TTRC 

62120 IF YS=1982 THEN GOTO 62150 

62130 YS=YS+1 

62140 goto 60400 

62150 print 3:)8O8OBGOOBOOOOOBOOOHOHOROHODHOOOPHOBHOOOHOOPOOHOOOVOOOOARO/PO/O)et ! 
62160 print using 'Regular Navy Cost 5 558884 5 5  її1ї 31101 ",)666Гс 
62170 print 998G988OOOOOOOOOODOOOOOOOBOBIOOBOOHOOHPIROOOBHO/BOpBHROOOOeead? ' 


62190 endproc  !(* expanded, multi year individual 9) 
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APPENDIX B 
MILRET COMPUTER PRINTOUTS 


MILITARY PENSION COSTS 
This is a three-part interactive program that 
calculates individual, aggregate, and multi-year 
retirement costs. Choose a selection from the 
following list of options: 
1. Program description 


2. Enter/change data and actuarial assumptions 


Individual entry-age cost method 


Aggregate entry-age cost method 


Expanded multi-year individual cost method 
. Exit program 


Type in your selection number and press the <enter> key. 
1 


MILRET Description 


Welcome to the MILRET program. This program was developed 
at the Naval Postgraduate School in 1983 and revised in 1985. 
The program utilizes three variations of the entry-age normal 
method of determining retirement costs: 


l. Individual entry age normal 
2. Aggregate entry age normal 
5. Multi-year expanded individual 


The individual subprogram produces detailed information at 
the individual paygrade and year of service entry level. 
Retirement costs are computed from user-supplied information 
and internally stored data. Some of the actuarial and economic 
assumptions may be changed by the operator. 


Please press <enter> to continue ==> 
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MILRET Description (cont.) 


The aggregate subprogram requires the operator to input all 


of the data. The information stored within the program is not 
available to this subprogram. There are no "hardwired" prob- 
ability assumptions. 


The multi-year expanded individual subprogram computes both 


normal costs and total retirement costs for years 1953 through 


1982. This subprogram utilizes user-provided data and stored 
information. The operator may select from a "summary" or a 
"detail" presentation of the retirement cost calculations. 


When you are returned to the main menu, please select from 
the options listed. If this is your first time with this pro- 


gram, you may want to review the assumptions first. 


Please press «enter» to return to main menu. 


Military Pension Costs 


This is a three-part interactive program that 


calculates individual, aggregate, and multi-year 


retirement costs. Choose a selection from the 
following list of options: 


1. Program description 

2. Enter/change data and actuarial assumptions 
$. Individual entry-age cost method 

4. Aggregate entry-age cost method 

5. Expanded multi-year individual cost method 


6. Exit program 


Type in your selection number and press the «enter» key. 


MILRET Data 
The following actuarial and economic values are currently 
stored within the MILRET program. To change a value, type 
in the selection number first (i.e., from 1 to 7) and press 
<enter>. When the prompt appears, type in the new value as a 
decimal (e.g., .065) and press <enter> again. Repeat this as 
often as necessary. Enter an "8" to return to the main menu. 


. СОГА = .050 
. Salary scale increase = .055 
. Annual discount rate - .060 


Annuity multiplier - .025 
Maximum percentage of base pay - .750 
Officer retirement probability = .400 


Enlisted retirement probability = .120 
No changes or changes are complete 


очо л рачм +4 


Please input a number and press «enter». 
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Military Pension Costs 
This is a three-part interactive program that 

calculates individual; aggregate, and multi-year 
retirement costs. Choose a selection from the 
following list of options: 

1. Program description 

2. Enter/change data and actuarial assumptions 

3. Individual entry-age cost method 

4. Aggregate entry-age cost method 

5. Expanded multi-year individual cost method 

6. Exit program 


Type in your selection number and press the <enter> key. 


3 
You are now in the individual MILRET subprogram. Detailed 
information for an individual retirement pay grade and specific 
year of service entry date is produced. 
Press <enter> to continue == 
% 
Individual Subprogram Data 
Start with item number 1 and enter the desired “Paygrade at 
retirement." Next enter the “Year of service entry." Data items 
3 through 7 will be supplied by the program. If you desire to 
change them, type in the appropriate number and press <enter>. 
1. Paygrade at retirement = 
2. Year of service entry = 0 
3. Average LOS for this paygrade = 0.0 
4. Average age for this paygrade = 0.0 
5. Remaining life expectancy = 0.00 
6. Probability of new entrant retiring = 0 
7. Probability of entrant retiring in tgt grade = 0 
8. Data entry complete 
Please input a number and press <enter>. 
1 
Enter paygrade at retirement. 
o5 
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Individual Subprogram Data 


Start with item number 1 and enter the desired "Paygrade at 
retirement." Next enter the "Year of service entry." Data items 
3 through 7 will be supplied by the program. If you desire to 
change 


On AM PWR ~ 


Ф 


them; type in the appropriate number and press «enter». 


Paygrade at retirement = 05 

Year of service entry = 0 

Average LOS for this paygrade = 24.9 

Average age for this paygrade = 46.3 

Remaining life expectancy = 30.83 

Probability of new entrant retiring = .% 

Probability of entrant retiring in tgt grade = .3299 


Data entry complete 


Please input a number and press <enter>. 


Enter year of service entry. 


Individual Subprogram Data 


Start with item number 1 and enter the desired "Paygrade at 
retirement." Next enter the "Year of service entry." Data items 
3 through 7 will be supplied by the program. If you desire to 


change 


е 


Q - 0. Ui 4 ш гә е 


them, type in the appropriate number and press «enter». 


Paygrade at retirement = 05 

Year of service entry = 1973 

Average LOS for this paygrade 29.9 

Average age for this paygrade 46.3 

Remaining life expectancy = 30.83 

Probability of new entrant retiring = .% 

Probability of entrant retiring in tgt grade = .3299 


. Data entry complete 


Please input a number and press «enter». 


Previous Year Normal Cost Data 


The previous year individual normal cost will be calculated 
based on the current year actuarial assumptions and other data 
displayed below. However, different values may be entered by 
selecting the appropriate number, pressing <enter>, and then 
entering your data. Enter any known deferred gains/losses. 

If you enter a value for previous year, it will be used instead 
of one being computed by the program. 


Previous year individual normal cost = $ 0.00 
Deferred gains or losses = $ 0.00 

Previous year salary scale increase = .055 
Previous year annual discount rate = .060 
Previous year life expectancy = 30.83 

No changes or changes are complete 


Please input a number and press <enter>. 


Enter previous year individual normal cost (e.g., 5823.6). 


2 
1973 
8 
1 
2 
3 
G 
5 
6 
1 
12345.66 
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Previous Year Normal Cost Data 


The previous year individual normal cost will be calculated 
based on the current year actuarial assumptions and other data 
displayed below. However, different values may be entered by 
selecting the appropriate number, pressing <enter>, and then 
entering your data. Enter any known deferred gains/losses. 

If you enter a value for previous year, it will be used instead 
of one being computed by the program. 


Previous year individual normal cost = $12345.66 
Deferred gains or losses = $ 0.00 

Previous year salary scale increase = .055 
Previous year annual discount rate = .060 
Previous year life expectancy = 30.83 


. No changes or changes are complete 


A UI шщ гә = 


Please input a number and press <enter>. 


Enter any deferred gains or losses (e.g., 127.24). 


327.58 


ex) 


Previous Year Normal Cost Data 


The previous year individual normal cost will be calculated 
based on the current year actuarial assumptions and other data 
displayed below. However, different values may be entered by 
selecting the appropriate number, pressing «enter», and then 
entering your data. Enter any known deferred gains/losses. 

If you enter a value for previous year, it will be used instead 
of one being computed by the program. 

Previous year individual normal cost = $12345.66 

Deferred gains or losses = $ 327.58 

Previous year salary scale increase = .055 

Previous year annual discount rate = .060 

Previous year life expectancy = 30.83 

No changes or changes are complete 


AN Wr = 


Please input a number and press <enter>. 


Individual Data Summary 


1. Paygrade at retirement = 05 

2. Year of service entry = 1973 

3. Average LOS for this paygrade = 24.9 

4. Average age for this paygrade = 46.3 

5. Remaining life expectancy = 30.83 

6. Probability of new entrant retiring = .% 
7. Probability of entrant retiring in tgt grade = .3299 
8. Current year = 1983 

9. Cola = .05 

10. Salary scale increase = .055 

11. Annual discount rate = .06 

12. Annuity miltiplier = .025 

13. Maximum 4 of basepay = . 75 


Press <enter> to continue ===> 
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Individual Retirement Cost Projections 


1. Current monthly basepay at retirement paygrade = $ 3266.10 

2. Projected monthly basepay at retirement paygrade = $ 7252.56 

3. Pay basis for retirement = $ 7252.56 

4. Percentage multiplier = .6225 

S. Projected yearly retirement annuity = $ 54176.60 

6. "Present" value of retirement benefits in retirement year = $ 753154.04 
7. Current present value of retirement benefits = $ 316101.40 

8; Current year individual normal cost = $13832.30 


Press Center» to continue ===> 


ey 


Target Group Retirement Cost Projections 


1. Current year individual normal cost ............$ 13,832.30 
г. Previous year individual normal cost ...........$ 12,345.66 
5. СиггепЖ уеаг даіпч ог 1053568%...................?7 1,486.64 
4. Deferred gains or 1оззеЗ .......................2 327.58 
5. Applied даіп ог 1038 ................. 277227772722 180.21 
6. Current year individual retirement cost ........$ 14,012.51 
7. Number of new entrants in entry year ........... 7,600 
8. Target рорч1аҰтіоп гетігілпд ..................... 1,003 
9. Current target group retirement cost ...........$ 14,053,089. 97 


Press <enter> to continue == 


„Уу 


Military Pension Costs 
This is a three-part interactive program that 

calculates individual, aggregate, and multi-year 
retirement costs. Choose a selection from the 
following list of options: 

1. Program description 

2. Enter/change data and actuarial assumptions 

3. Individual entry-age cost method 

4, Aggregate entry-age cost method 

5. Expanded multi-year individual cost method 


6. Exit program 


Type in your selection number and press the «enter» key. 
4 2 
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Aggregate Current FY Data 


Enter the present value of future benefits, the present 
value of future compensation; and the current FY total base 
pay. The normal cost percentage factor and the current FY 
active force normal cost will be computed. If you desire to 
change the normal cost percentage factor, do so and a new 
active force normal cost will be computed. 


1. Present value of future benefits ............ $ .00 
2. Present value of future compensation ........ $ .00 
3. Normal cest percentage factor ........... s . 0000 
CGurrent' FT total base pay ................... 9 .00 
5. Current FY active force normal cost ......... $ . 00 
6. No changes or changes are complete 


Please input a number and press «enter». 
1 
Enter present value of future benefits. 
2456784256.67 
KO-17 Divide by zero 


Aggregate Current FY Data 


Enter the present value of future benefits, the present 
value of future compensation, and the current FY total base 
pay. The normal cost percentage factor and the current FY 
active force normal cost will be computed. If you desire to 
change the normal cost percentage factor, do so and a new 
active force normal cost will be computed. 


1. Present value of future benefits ............ $  2,456,786,256.67 
г. Present value of future compensation ........ $ . 00 
3. Normal cost percentage Ғасфог ............... . езе 
4 wCurrent FY total base pay ................... 9 . 00 
5. Current FY active force normal cost ......... $ ‚00 
6. No changes or changes are complete 


Please input a number and press «enter». 


e 
Enter present value of future compensation. 
3487458998.56 
Aggregate Current FY Data 
Enter the present value of future benefits, the present 
value of future compensation, and the current FY total base 
pay. The normal cost percentage factor and the current FY 
active force normal cost will be computed. If you desire to 
change the normal cost percentage factor, do so and a new 
active force normal cost will be computed. 
I Present value of future benefits Феееееееееее 5 2,456,784,256.67 
2. Present value of future compensation ........ $ 3,487,458,998.56 
3. Normal cost percentage factor ......... es . 7045 
%. бСчггеп% ЕҮ +о%а1 Баѕе рау ................... $ ‚00 
5. Current FY active force normal cost ......... $ .00 
6. No changes or changes are complete 
Please input a number and press «enter». 
4 
Enter current FY total base pay. 
4467832456.99 
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Aggregate Current FY Data 


Enter the present value of future benefits, the present 
value of future compensation, and the current FY total base 
Pay. The normal cost percentage factor and the current FY 
active force normal cost will be computed. If you desire to 
change the normal cost percentage factor, do so and a new 
active force normal cost will be computed. 


l. Present value of future benefits “ееевееевеевеввеев 5 2 »456 » 784,256.67 
2. Present value of future compensation ........ $ 3,487,458,998.56 
.5. Normal cost percentage factor ............... . 7045 
4. Current FY total base pay ......... $e ITE ... $ 4,467,832,456.99 
5. Current FY active force normal cost ......... $ 3,147,4%20,642.%5 
6. No changes or changes are complete 
Please input a number and press <enter>. 
6 
Aggregate Previous FY and Current FY Total Data 
Enter the previous FY normal cost percentage, the previous 
FY active force normal cost, and any deferred gains or losses 
to compute the previous FY active force normal cost, current 
gains/losses applied, and the current FY total retirement cost. 
1. Previous FY normal cost percentage .......... .0000 
2% Previous FY total base Рау ееееееееееееегтеетеееее 5 .00 
3. Previous FY active force normal cost ........ % .00 
Ф. Current FY actuarial gains/losses ° + ө ө ө ө ө е ө ө +* 5 3,197,420 » 642 .%5 
5. ПеГеггей даіпз ос 1о55еЗ .................... ? . 00 
6. Current FY gains/losses applied ....... и 274,406,974.33 
7. Current FY total retirement cost ............ 5 32,0921,827,116.78 
8. No changes or changes are complete 
Please input a number and press <enter>. 
1 
Enter previous FY normal cost percentage. 
‚57 
Aggregate Previous FY and Current FY Total Data 
Enter the previous FY normal cost percentage, the previous 
FY active force normal cost, and any deferred gains or losses 
to compute the previous FY active force normal cost, current 
gains/losses applied, and the current FY total retirement cost. 
1. Previous FY normal cost percentage .......... .5700 
2. Previous FY %о%Фа1 Базе рау .................. 9 .00 
3. Previous FY active force normal cost ........ % .00 
4. Current ЕҮ actuarial gains/losses ........... $ 3,147,420,642.45 
5. Deferred даіпя ОГ 105565 ................. 22752 .00 
6. Current FY gains/losses applied ............. $ 274 9906 »474. 33 
7. Current FY total retirement cost ............ $  3,421,827,116.78 
8. No changes or changes are complete 
Please input a number and press <enter>. 
2 
Enter previous FY total base pay. - 
3784592034.57 
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6 


Aggregate Previous FY and Current FY Total Data 


Enter the previous FY normal cost percentage, the previous 
FY active force normal cost, and any deferred gains or losses 
to compute the previous FY active force normal cost, current 
gains/losses applied» and the current FY total retirement cost. 


1. Previous FY normal cost percentage ......... e .5700 
6. Ргеуіоиз FY total base pay .....--....-ь..... $ 3,784,592,034.57 
3. Previous FY active force normal cost ........ $ 2»157,217,959.70 
4%. Current FY actuarial gains/losses ........... $ 990 ,205,182.75 
5. Deferred gains or losses ............. 522222 9 .00 
6. Current FY gains/losses applied ............. $ 86,330,425.80 
7. Current FY total retirement cost ............ $ 5,255,751,068.26 
8. No changes or changes are complete 


Please input a number and press «enter». 


Enter any deferred gains or losses. 
785686.37 
Aggregate Previous FY and Current FY Total Data 
Enter the previous FY normal cost percentage, the previous 
FY active force normal cost, and any deferred gains or losses 
to compute the previous FY active force normal cost, current 
gains/losses applied, and the current FY total retirement cost. 
1. Previous FY normal cost percentage .......... .5700 
6; Previous FY total base PaY * 9999909 9999990929292.9 $ 3,784,592,034.57 
$. Previous РҮ active force normal cost ........ $ 2,157,217,%59.70 
4. Current FY actuarial gains/losses ........... $ 990,203,182.75 
5. Deferred gains or losses .......... 29255522 5 6,785,886 .37 
6. Current FY gains/losses applied ............. $ 86,7%7,6%6.1% 
7. Current РУ total retirement cost ............ $8 3,226,168,288.59 
8. No changes or changes are complete 
Please input a number and press «enter». 


Military Pension Costs 
This is a three-part interactive program that 

calculates individual, aggregate, and multi-year 
retirement costs. Choose a selection from the 
following list of options: 

1. Program description 

2. Enter/change data and actuarial assumptions 

3. Individual entry-age cost method 

4. Aggregate entry-age cost method 

5. Expanded multi-year individual cost method 

6. Exit program 


Type in your selection number and press the <enter> key. 


71 


APPENDIX C 


FORMULAS IN THE ORIGINAL ENTRYAGE COMPUTER PROGRAM 


Proaram Formula 


———— 


CF-1983 


RF=LOS+YS 


IN-.055 


PP-BP 

FOR I2-1 TON 
ГЕВЕВ ТО 
РРеТР+РР 
NEXT oT 


FAC=LOS+DL 


Explanation 


Current Year = 1983 


Retirement Year = Length of Service + Year 
of Service Entry 


Number of Years to Retirement = Retirement 
Year - Current Year 


Salary Scale Increase = .055 


This is a rather long way of computing the 
projected base pay at retirement. A more 
acceptable computation is: 


PP =) BPex (1+ IN) 00 


where PP is projected basepay at retirement 
(or, future value); BP is current basepay 
(or, present value); IN is salary scale 
increase (or, interest per period); and N 
is the number of years to retirement (ог, 
(number of periods). 


The percentage of basepay that a retiree is 
entitled to (FAC) is computed by multiply- 
ing his/her length of service (LOS) by a 
percent value (DL): 


50$ - (20 years) x (2.5$ per year) 


12 


Program Formula 


Explanation 


ANN=FAC*PP*12 A retiree's annual annuity (ANN) is compu- 
ted by multiplying his/her orojected base 
pay (PP) by nis percentage of basepay (FAC) 
by 12 months: 


Q=(1+DI) **LI 
PRE-ANN* ( (1- (1/Q) ) /DI 


$18,002/yr. = 50% x $3000/mo. x 12 mo. 


The present value of a retiree's 
future retirement benefits are 
calculated: 

Ї 


(l * DI)": 





PRE = ANN * 
DI 


where PRE 1s the present value of 
future retirement benefits, ANN is 
the yearly retirement annuity, DI 
1s the annual discount rate, and 
LI is the life expectancy of the 
retiree at retirement. 


A more traditional representation 
of the above is: 


Ï 
1 - 
ШІ. 
PV - РҮМТ x 





1 


where PV is the present value, 
PYMT is the payment, i is the 
interest rate per period, and N is 
the number of periods. 


qs 


Program Formula Explanation 





SS 
Т=( (1-01) СОБУ These two program statements calculate 
NC=PRE* (DI/T) tne current year's normal cost: 
DI 
NC = PRE * Tos 
(l* DI) - 1 


wnere NC is the normal cost, PRE is the 
present value, DI is the discount rate, 
and LOS is the retiree's length of 





Service. 

V=N+1 The applied gain/loss is calculated 
X=1/((1+DI) **V) as follows: 
AP= (FC+GL) * (DI/ (1-X)) 

DI 

AP = (FC * GL) * 
1 
doses 
(1 + р 


where AP is the applied gain/loss, 
FC is the current year gain/loss, GL 
is the deferred gain/loss, DI is the 
annual discount rate, and N is the 
number of years to retirement. 


RC=NC+AP The current year individual retirement cost (RC) 
1S calculated by adding the current year indivi- 
dual retirement cost (NC) and the applied gain or 
loss (AP). 


PEC =PRO*TGT*NEW The target population retiring (PEC) is 
computed by multiplying the probability of 
a new entrant retiring (PRO) by the prob- 
ability of an entrant retiring at the tar- 
get paygrade (TGT) and by the number of 
entrants in the initial year of service 
(NEW). i 
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Program Formula Explanation 


TRC=PEC*RC Tne current target group retirement cost (TRC) 
is calculated by multiplying the target popula- 
tion retiring (PEC) by the current year indivi- 
dual retirement cost (RC). 


AzN-2 For individuals entering the services 
RP-BP after September 1980, the pay basis for 
FOR K-1 TO A retirement is the average of the last 36 
VP=RP*IN months of basepay versus ending basepay. 
RP=VP+RP This program "module" finds the future 
NEXT K value of basepay to the retirement year 
SP=(IN*RP) +RP minus two, then computes tne next years' 
PP=(SP+RP+PP) /3 basepay. Finally, the three basepays are 
averaged. 
PF=PBE/PCE The normal cost percentage factor (PF) is 


calculated by dividing the present value 
of future benefits (PBE) by the present 
value of future composition (PCE). 


MC=PF* TBF The current year active force normal cost 
is calculated by multiplying the current 
fiscal year total base pay (TBF) by the 
normal cost percentage factor (PF). 


VC=QF * UBF The previous normal cost is calculated by 
multiplying the previous year total basepay 
Бу the previous year normal cost % factor. 
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APPENDIX D 


VARIABLES IN THE ORIGINAL ENTRYAGE COMPUTERSBISOGLDES 


(LISTED IN ORDER OF APPEARANCE) 


LISTING OF VARIABLES AND COMPUTATIONS IN 
ORDER OF APPEARANCE IN THE COMPUTER PROGRAM 


I. INOIVIDUAL ENTRY AGE COST METHOD 


CK$ 


"PROGRAM CHOICE", i.e., 'INO' for individual method 
cost calculatíons, 'AGG' for aggregate method cost 
calculations, 'GANG' for expanded multiyear individual 
cost calculations, and 'HALT' to exit the program. 


"CURRENT YEAR PAY MATRIX" with rows defined by pay 
grade and columns defined by years of service. 
Contains base pay for all twenty-six paygrades (El1-E9, 
М1-84, 01, 01Е, 02, 02Е, 03, 03Е, 08-010) and for wove. 
20 years of service (over 20 yrs., over 22 yrs., over 
24 yrs., over 26 yrs., Over 28 yrs. s aver 30 yrsa) 


"ENLISTEO LIFE EXPECTANCY MATRIX” containing thirty- 
one non-dísability retired life expectations for ages 
36 yrs. to 66 уго аис иие 


"OFFICER LIFE EXPECTANCY MATRIX containing 201018 
non-disability retired life expectations for ages 
36 yrs. to 66 yrs., nc lus uw be 


"AVERAGE LOS MATRIX" containing twenty-six length-of- 
service (LOS) values corresponding to the twenty-six 
different paygrades. 


"AVERAGE AGE AT RETIREMENT MATRIX" containing twenty- 
Six average age values for each of the twenty-six 
different paygrades. 


"TARGET RETIREMENT GRAOE PROBABILITY MATRIX" contain- 
ing a probability of retiring in a particular paygrade 
for each of the twenty-six paygrades. 
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00(х) 


R(x,y) 


PG$ 


LS 


LOS 


BP 


CF 


LISTING OF VARIABLES AND COMPUTATIONS IN 
ORDER OF APPEARANCE IN THE COMPUTER PROGRAM 


"OFFICER ACCESSION MATRIX” containing thirty-two 
values for officer accession values for the years 
1951-1982, ínclusive. 


"PREVIOUS YEAR PAY MATRIX" containing the same rows 
and columns as the "CURRENT YEAR PAY MATRIX" [P(x,y)] 
but with ~ae prev?ous y-ar's b 5ё04у uata. 


"PAYGRADE AT RETIREMENT" input by operator as El, Е9, 
ШАҒЫНА ІЛЕ gb. atc. 


An integer from 1 to 25 corresponding to "PAYGRADE AT 
RETIREMENT", e.g., G2l for El, G=2 for E2, G10 for 
Wl, 6226 for 010. Used to determine values from LOS 
and pay matrices. 


TEAR OF SERVICE ENTRY” Input Dy operator, @.g., 1972. 


Either "AVERAGE LENGTH OF SERVICE FOR THIS PAYGRAOE" 
taken from the "AVERAGE LOS MATRIX" (LOS20(G)] con- 
tained tn the program, or an “ESTIMATED LENGTH OF 
SERVICE AT RETIREMENT” input by the operator. 


An integer ranging from 1 to 6 depending upon the 
value of LOS, e.g., tf 20<2L0S8<22 then L2=l, etc. Used 
with “6" to determine values from the pay matrix. 


"MONTHLY BASE PAY AT RETIREMENT GRADE" based upon 
paygrade and Length of service. Taken from the current 
(1983) pay matrix: 

Bp t 


"CURRENT FISCAL YEAR", contained in program as a fixed 
value (1983). 


TT 


RF = 


[№ = 


pp = 


OL = 


FAC = 


OM = 


LISTING OF VARIABLES ANDO COMPUTATIONS IN 
DRDER OF APPEARANCE IN THE COMPUTER PROGRAM 


"PROJECTED RETIREMENT YEAR" determined by adding 
"LENGTH OF SERVICE" (LOS) and “YEAR OF SERVICE ENTRY" 
(YS) together: 


RE =O See үс 


"NUMBER OF YEARS TO RETIREMENT” determined by 
subtracting “CURRENT YEAR” (CF) from "PROJECTED 
RETIREMENT YEAR ORIS) 


N = RF - CF 


"SALARY SCALE INCREASE" default to .055, or can be 
Changed by operator. 


"PROJECTED MONTHLY BASEPAY AT RETIREMENT GRAOE* 
computed Dy compounding “CURRENT MONTHLY BASEPAY AT 
RETIREMENT GRADE" (BP) by the “SALARY SCALE INCREASE” 
(IN): 


РР = ВР 

FOR I » 1 TO N 
ТР = PP * IN 
pp = Tp + pp 
NEXT I 


"PERCENTAGE DF BASEPAY PER YEAR DF SERVICE", default 
value of .025 (1.е., 2 1/29 рег yr. of service) DUE 
can be cheng-d 59 OD-r ctos. 


"PERCENTAGE OF BASEPAY FOR RETIREMENT” that a retiree 
has earned for retirement pay . Determined by multi- 

plying “AVERAGE/ESTIMATEO LENGTH OF SERVICE” (LOS) by 
"PERCENTAGE DF BASEPAY PER YEAR DF SERVICE (0L): 


FAC > |05" DE 
"MAXIMUM PERCENTAGE OF BASE PAY" that a retiree may 
receive. Oefault value 15 ./75 (167 12522001 201008 


changed by operator. If FAC is greater than OM, then 
ҒАС is assigned the value of OM. 
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ANN 


DI 


AG 


LI 


PRE 


LISTING OF VARIABLES ANO COMPUTATIONS IN 
ORDER OF APPEARANCE IN THE COMPUTER PROGRAM 


"PROJECTED ANNUAL RETIREMENT PAY" computed by multi- 
plying “PERCENTAGE OF BASEPAY FOR RETIREMENT" (FAC) 
by the “PROJECTED MONTHLY BASEPAY" (PP) and by 12 
months: 


ANN = FAC * PP * 12 


“ANNUAL DISCOUNT RATE" default to .09 (t.e., 9% per 
year), but may be changed by the operator.. 


"AVERAGE AGE AT RETIREMENT FOR THIS PAYGRADE" taken 
from the “AVERAGE AGE AT RETIREMENT MATRIX" [AG=F(G) ] 
Contained in the orogram, or can be changed by the 
operator. 


An integer ranging from 1 to 31 depending upon the 
value of AG (e.g., if 36«AG«37 then 2=1; і? 45«AG«46 
theb 21331). 


"REMAINING LIFE EXPECTANCY (at retirement) FROM 
ACTUARIAL TABLES" taken from "ENLISTEO/OFFICER 
LIFE EXPECTANCY MATRICES", Determined by “AVERAGE 
AGE AT RETIREMENT FOR THIS PAYGRADE” [LI=E(2) or 
LI=0Z(2)], or can be changed by the operator. 


An intermediate variable used to eventually compute 
the present value of future retirement benefits. It is 
computed by adding "1" to the "ANNUAL DISCOUNT RATE” 
(DI) and raising that sum to the "LIFE EXPECTANCY" 
(LI) exponent: 


GE КЕЛГІР ЖҮНІ 


“PRESENT VALUE OF FUTURE RETIREMENT BENEFITS" is 
computed by multiplying the “PROJECTED ANNUAL 
RETIREMENT PAY" (ANN) as follows: 


DI PA 


PRE з АММ х 


01 
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NC 


JN 


QP 


XP 


LISTING OF VARIABLES AND COMPUTATIONS IN 
ORDER OF APPEARANCE IN THE COMPUTER PROGRAM 


An intermediate variable used to eventually compute 
the current year individual normal cost. It ts com- 
puted as follows: 


Тэ 1» 01 5 10:11 04 


"CURRENT YEAR INDIVIDUAL COST" is computed as follows: 
NC = PRE [ШТ 


"SALARY SCALE 2" used to calculate the "PREVIOUS YEAR 
NORMAL COST" (0C). Can be assigned the same value as 
current year "SALARY SCALE INCREASE" (IN) or can be 
Changed by the operator. 


Assigned the value of "G" which is an integer value 
corresponding to the individual's paygrade. 


Assigned the value of "L" which is an integer value 
corresponding to the individual's LOS. 


The previous year's "MONTHLY BASE PAY AT RETIREMENT" 
corresponding to the current year's "BP", Taken from 
the “PREVIOUS YEAR PAY MATRIX": 


QP = R(H,M) 


"NUMBER OF YEARS TO RETIREMENT FROM THE PREVIOUS YEAR" 
апа ís determined by adding "1" to the "NUMBER OF 
ҮЕАВ5 ТО” КЕТГЯЕМЕНМТЕ 1. 


Ü 3 N +l 


"PROJECTED MONTHLY BASEPAY AT RETIREMENT CALCULATED 
FROM THE PREVIOUS YEAR". It is computed as follows: 


XP = QP 

FOR J = 1 T0 0 
UP = XP * JN 
Ар ОА 
NEXT J 
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ЕТ 


МІ 


ДАЕ 


DC 


ЕС 


LISTING OF VARIABLES AND COMPUTATIONS IN 
ORDER OF APPEARANCE IN THE COMPUTER PROGRAM 


"PREVIOUS YEAR OISCOUNT RATE“. Can be assigned the 
same value as the current year's “ANNUAL DISCOUNT 
RATE" (DI), or can be changed by the operator. 


"PREVIOUS YEAR LIFE EXPECTANCY". Can be assigned the 
Same value as the current year's “REMAINING LIFE 
EXPECTANCY (at retirement)", or can be changed by the 
Operator. 


An intermediate value used to eventually compute the 
previous year's present value of future retirement 
benefits. It ís computed by adding "I1" to the 
"PREVIOUS YEAR DISCOUNT RATE” (EI) and raising to the 
"PREVIDUS YEAR LIFE EXPECTANCY” (MI) exponent: 


С ЗЕ (КЕГИ 
"PREVIDUS YEAR PRESENT VALUE DF FUTURE RETIREMENT 
BENEFITS" is computed as follows: 
l - (1/5) 


EI 


An intermediate variable used to eventually compute 
the previous year's individual normal cost. It is 
computed as follows: 

Е ee DS | <=. 1 
“PREVIOUS YEAR INOIVIOUAL NORMAL COST" is computed 
as follows: 

GE = ШЕ " ТЕТЛІЛ 

"CURRENT YEAR GAINS OR LOSSES" computed by subtracting 
"PREVIDUS YEAR INDIVIDUAL NORMAL COST" (DC) from the 
"CURRENT YEAR INDIVIDUAL NORMAL COST" (NC): 


FE NC 2200 
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GL 


AP 


RC 


PRO 


Ғ2(6) 


TGT 


LISTING OF VARIABLES AND COMPUTATIONS IN 
OROER OF APPEARANCE IN THE COMPUTER PROGRAM 


An intermediate variable used in the calculation of 
the “APPLIED GAIN OR LOSS" (AP). It ts computed by 
adding “1" to the “NUMBER OF YEARS TO RETIREMENT" (N): 


V =a N +I 
An intermediate variable used in the calculation of 
the "APPLIEO GAIN OR LOSS" (AP). It is calculated as 
follows: 


1 


Х —— — — ши 


(1 * OI) ** V 


"OEFERREO GAINS OR LOSSES". This value ts etther input 
by the operator tf known, or defaults to a "0" value 
if unknown. 


"APPLIEO GAIN OR LOSS* computed as follows: 


0I 
AP а (FC + GL) x —— 
(12-247 


“CURRENT YEAR (total) RETIREMENT COST" equals 
the “CURRENT YEAR INDIVIDUAL NORMAL COST" (NC) plus 
any "APPLIEO GAINS OR LOSSES" (AP): 


RC = NC + AP 


"PROBABILITY OF A NEW ENTRANT RETIRING". It has a 
Eefault value of .12 for enlisteds and .4 for 
officers, but can be changed by the operator. 


"PROBABILITY OF ENTRANT RETIRING AT TARGET GRAOE" 
default to a value from the "TARGET RETIREMENT 
PROBABILITY MATRIX" (FZ) dependent upon paygrage, 
or can be changed Dy operator. 


"PROBABILITY THAT ENTRANT RETIRES AT SELECTEO TARGET" 
is default to the FZ(G) matrix value, or can be 
changed by the operator. 
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NEW = 


PEC = 


ТАС = 


LISTING OF VARIABLES AND COMPUTATIONS IN 
OROER OF APPEARANCE IN THE COMPUTER PROGRAM 


"NUMBER OF ENTRANTS IN INITIAL YEAR OF SERVICE". This 
value must be input by the operator. 


"TARGET POPULATION RETIRING" calculated by multiplying 
the "PROBABILITY OF A NEM ENTRANT RETIRING" (PRO) by 
"PROBABILITY THAT THE ENTRANT RETIRES AT SELECTEO 
TARGET" (TGT) and by the "NUMBER OF ENTRANTS IN THE 
INITIAL YEAR OF SERVICE" (NEW): 


PEC = PRO * TGT * NEW 


"CURRENT TARGET GROUP RETIREMENT COST" is calculated 
by multiplying the "TARGET POPULATION RETIRING" (PEC) 
and the "CURRENT YEAR INDIVIDUAL RETIREMENT COST" (RC) 
together: 


ТВС „ж PEC КЕ 
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LISTING OF VARIABLES ANO COMPUTATIONS IN 
ORDER OF APPEARANCE IN THE COMPUTER PROGRAM 


AGGREGATE ENTRY AGE COST METHOD 


PBE 


РСЕ 


PF 


T8F 


MC 


QF 


U8F 


"PRESENT VALUE OF FUTURE BENEFITS". This value must be 
entered by the operator in millions of dollars, e.g., 
$4,334,785,192.32 entered as 4334.785. 


"PRESENT VALUE OF FUTURE COMPENSATION". This value 
must ое entered by operator in millions of dollars, 
е.0., $9,127,589,203.53 15 entered as 9] 27 5 395 


"NORMAL COST PERCENTAGE FACTOR" is computed by dtvid- 
ing the "PRESENT VALUE OF FUTURE BENEFITS" (PBE) by 
the "PRESENT VALUE OF FUTURE COMPENSATION (PCE): 


PBE 


рЕа--- 


РСЕ 


If this factor is not acceptable, the program allows 
the operator to change the value. 


“CURRENT FISCAL YEAR TOTAL BASE PAY", This value must 
be entered by the operator in millions of dollars, 
е.0., 527 ,485,592,033,89 15 епсегейтасе та 


"CURRENT YEAR ACTIVE FORCE NORMAL COST" is equal to 
the "NORMAL COST PERCENTAGE FACTOR* (PF) multiplied 
by the "CURRENT FISCAL YEAR TOTAL PAY BASE" (TBF): 


MC = РЕ = ТЕЕ 


“PREVIOUS YEAR NORMAL COST $ FACTOR" is entered by the 
operator as a decimal, e.g., 43.2% is entered as . 432. 


“PREVIOUS YEAR TOTAL BASE PAY" is entered by the 
operator in millions of dollars, e.g.. (ЖОО 
is entered as 22432.5138. 
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ҮС 


WC 


GI 


615 


615Т 


HIST 


S 


LISTING OF VARIABLES AND COMPUTATIONS IN 
OROER OF APPEARANCE IN THE COMPUTER PROGRAM 


"PREVIOUS YEAR NORMAL COST" is entered by the operator 
1f known. Otherwise, it 1s calculated by multiplying 
the "PREVIOUS YEAR NORMAL COST Z FACTOR” (QF) by the 
"PREVIOUS YEAR TOTAL BASE PAY” (UBF): 


VC = QF * USF 


"CURRENT YEAR'S ACTUARIAL GAIN OR LOSSES" computed by 
subtracting the “PREVIOUS YEAR ACTIVE FORCE NORMAL 
COST" (VC) from the "CURRENT YEAR ACTIVE FORCE NORMAL 
COST (MC); 


WC = MC - VC 


“DISCOUNT RATE" entered by the operator as a decimal, 
e.g., 11.2% is entered as .112. 


An intermediate variable used to eventually calculate 
the "CURRENT YEAR GAINS/LOSSES APPLIED" (FA). It is 
calculated as follows: 


ШЕГЕ 20 


An intermediate variable used to eventually calculate 
the "CURRENT YEAR GAINS/LOSSES APPLIEO" (FA). It fs 
calculated as follows: 


1 
GIST = 
GIS 


An intermediate variable used to eventually calculate 
the “CURRENT YEAR GAINS/LOSSES APPLIED" (FA). It is 
calculated as follows: 

HIST = (1 = GIST) 
An intermediate variable used to eventually calculate 
the "CURRENT YEAR GAINS/LOSSES APPLIED” (FA). It is 
calcuiated as follows: 


BLIP = GI/HIST 
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FQ = 


FA s 


TRC = 


LISTING OF VARIABLES ANO COMPUTATIONS IN 
ORDER OF APPEARANCE IN THE COMPUTER PROGRAM 


"AMMOUNT OF QEFERREO GAIN QR LOSS" is entered by the 
operator 3f known, or defaults to a "0" value if not 
known, 


"CURRENT YEAR GAINS/LOSSES APPLIEQO" is computed by 
adding the "CURENT YEAR'S ACTUARIAL GAIN/LOSS" (F0) 
together, and multiplying the sum by "BLIP": 

FA (WUC ЕТУ "ӘШІР 
"CURRENT YEAR TOTAL RETIREMENT COST" ts computed by 
adding the “CURRENT YEAR ACTIVE FORCE NORMAL COST" 
(MC) and the "CURRENT YEAR GAINS/LOSSES APPLIEQ* 
(FAJ: 


TRC = MC > FA 


121 
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LISTING OF VARIABLES ANO COMPUTATIONS IN 
ORDER OF APPEARANCE IN THE COMPUTER PROGRAM 


III. MULTIYEAR EXPANgEDO INOIVIOUAL NORMAL COST METHOD 


01 


ІМ 


DL 


DM 


MRT 


PROR 


PROQ 


"DISCOUNT RATE" entered by the operator as a decimal, 
в 03 for "3.04. 


"SALARY SCALE ESTIMATOR" (1.e., the rate of salary 
increase) is entered by the operator as a decimal, 
e.g., .055 for 5.52 yearly rate for salary.increases. 


"RETIREMENT PAY BASIS PER YEAR OF SERVICE" (1.e., the 
% rate of retired pay per year of service) {ts entered 
by the operator as a decimal, e.g., .025 for 2.5% per 
year. 


"RETIREMENT PAY CEILING AS PERCENTAGE OF BASIC PAY" 
(1.е., the maximum X of pay basis at retirement) is 
entered by the operator as a decimal, e.g., .75 for 
75:54 


"MINIMUM LOS FOR RETIREMENT" (i.e., the minimum length 
of service required in order to retire) is entered by 
the operator as an integer, e.g., 25 for twenty-five 
years. 


"ADJUSTMENT TO ENTRANT RETIREMENT PROBABILITY FOR 
OFFICERS" is entered by the operator as a decimal, 
e.g., .01 for a 1$ increase. The baseline value is 
.40 (i.e., 402 probability). A zero (0) is entered 
for no change to the baseline value. 


"ADJUSTMENT TO ENTRANT RETIREMENT PROBABILITY FOR 
ENLISTEO PERSONNEL" ts entered by the operator as 
a decimal, e.g., -.02 for a 2$ decrease. The base- 
кре сә (туе (2a probagdiity}). A. zero 
is entered for no change to the baseline value. 
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A0J 


LONG 


C$ 


CELT 


TTTRC 


YS 


LISTING OF VARIABLES ANO COMPUTATIONS IN 
OROER OF APPEARANCE IN THE COMPUTER PROGRAM 


"A0JUSTMENT TO LOS ANO AGE AT RETIREMENT" value is 
entered by operator as an integer, either unsigned 
or with a negative sign, e.g., -2 indicating a 
decrease of two years. A zero (0) is entered for no 
change. 


"AOJUSTMENT TO LIFE EXPECTANCY AT RETIREMENT = is 
entered by the operator as an integer, either unsigned 
Or with a negative sign, e.g., 3 for three years. A 
zero is entered for no change. 


"LEVEL OF OETAIL® for programe TER 
Totals and 'Oetail' for Full Oetail 
input by the operator. 


» Sum‘ for Summary 
. This value is 


A “OQELTA® factor used to adjust attrition. A value of 
(1) "1" is assigned by the program if "AVERAGE LOS" 
[0(6)*40J] is greater than "MINIMUM LOS FOR 
RETIREMENT" (MRT), or 
(2) ts calculated by the following formula if 
[(0(6)*A0J) «MRT and (MRT>20 yrs.)]: 


OELT * 1.00**[MRT-0(G)-A0J] 
An integer from 1 to 26 corresponding to “PAYGRAOE AT 
RETIREMENT", e@.9., G*l for El. G22 [аг ЕШШ ОГ 


М1, G=26 for 010. Used to determine values from LOS 
and pay matrices. 


"REGULAR NAVY COST" of fts non-disability retirees. 
Computed by the following formula: 

ТТАС Ча» ТЕС > ТВС 
"YEAR OF SERVICE ENTRY" with the initial value of 
1953, and then updated by one year for the next year 


group cost calculations by the formula: 


YS үз + 


11 а 
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Р6$ 


ТТАС 


0(6) 


(05 


P(G,L) 


BP 


CE 


LISTING OF VARIABLES AND COMPUTATIONS IN 
ORDER OF APPEARANCE IN THE COMPUTER PROGRAM 


"PAYGRADE AT RETIREMENT" initially set by program as 
'El'. After computing normal and total costs for this 
paygrade, resets value to 'E2'and recomputes normal 
and total costs. Program continues computations until 
costs for '010' are computed. 


"TOTAL YEAR GROUP COST" of non-disability retirees by 
year group, starting with 1953. Computed by the 
formula: 


ТТАС ТТАС + TRC 


"AVERAGE LOS FOR A PARTICULAR PAYGRADE" from the 
"AVERAGE LOS MATRIX", Determined by the value 
assigned to the integer variable, "G". 


"LENGTH OF SERVICE" is computed by adding "AVERAGE 
LOS FOR A PARTICULAR PAYGRADE" ([0(G)] to "ADJUSTMENT 
TO LOS AND AGE AT RETIREMENT" (ADJ). 


LOS = D(G) + ADJ 


An integer ranging from 1 to 6 depending upon the 
value of 105, e.g., if 20«2L0$2»22 then L*71, etc. 
Used with "G" to determine values from the pay 
matrix. 


"CURRENT YEAR PAY" taken from the "CURRENT YEAR PAY 

MATRIX", The current year pay value is determined by 
the values of "G" and "L", which are assigned values 
based upon paygrade and years of service over 20 yrs. 


"MONTHLY BASE PAY AT RETIREMENT GRADE" based upon 
paygrade and length of service. Taken from the current 
(1983) pay matrix: 


BP = P(G,L) 
“CURRENT FISCAL YEAR" with a program assigned value of 
1983. 
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RF 


pp 


FAC 


ANN 


F(G) 


LISTING OF VARIABLES AND COMPUTATIONS IN 
ORDER QF APPEARANCE IN THE COMPUTER PROGRAM 


"PROJECTED RETIREMENT YEAR" determined by adding 
"LENGTH OF SERVICE" (LOS) and “YEAR OF SERVICE ENTRY" 
(YS) together: 


АЕО 


"NUMBER OF YEARS TO RETIREMENT" determined by 
subtracting “CURRENT YEAR" (CF) from "PROJECTED 
RETIREMENT YEAR" (RF): 


М = ВЕ - СЕ 


“PROJECTED MONTHLY ВАЗЕРАУ AT RETIREMENT GRADE" 
computed by compounding "CURRENT MONTHLY BASEPAY AT 
RETIREMENT GRADE" (8P) by the "SALARY SCALE INCREASE" 
(ЗІМІ: 


РР = ВР 

FOR I = 1 TON 
TP = Pp * IN 
РР = TP + pp 
NEXT I 


“PERCENTAGE OF BASEPAY FOR RETIREMENT" that a retire 

has earned for retirement pay . Determined by multi- 

plying “AVERAGE/ESTIMATED LENGTH OF SERVICE“ (LOS) by 
"PERCENTAGE OF BASEPAY PER YEAR OF SERVICE (DL): 


РАС з 525100 


"PROJECTED ANNUAL RETIREMENT PAY" computed by multi- 
plying “PERCENTAGE OF BASEPAY FOR RETIREMENT” (FAC) 
by the "PROJECTED MONTHLY BASEPAY" (PP) and by 12 
months: 


ANN s FAC * PP * 12 


= "AVERAGE AGE AT RETIREMENT", taken from the "AVERAGE 


AGE AT RETIREMENT MATRIXS СЕ(х) 1. Value of F(C) 55 
determined by the particular value of the integer 
variable, "G", which corresponds to a particular 
paygrade. 


15 


90 


AG 


ECL) 


01 (1) 


LI 


LISTING OF VARIABLES AND COMPUTATIONS IN 
ORDER OF APPEARANCE IN THE COMPUTER PROGRAM 


"AVERAGE AGE AT RETIREMENT" taken from the “AVERAGE 
AGE AT RETIREMENT MATRIX” [F(G)] and modified by the 
"ADJUSTMENT TO LOS AND AGE AT RETIREMENT" value (ADJ): 


AG = F(G) + ADJ 


An tnteger ranging from 1 to 31 depending upon the 
value of the retiree's age,"AG" (e.g., if 36<AG<37 
then 121; 1f 45«AG«46 then 2-31). 


"ENLISTEO LIFE EXPECTANCY" taken from the “ENLISTED 
LIFE EXPECTANCY MATRIX" [E(x)]. The specific life 
expectancy value ts determined by the integer variable 
"1", which corresponds to a specific retirement age. 


"OFFICER LIFE EXPECTANCY" taken from the "OFFICER 

LIFE EXPECTANCY MATRIX" [02(x)]. The specific life 
expectancy value is determined by the integer variable 
"1", which corresponds to a specific retirement age. 


“REMAINING LIFE EXPECTANCY AT RETIREMENT” is calcu- 
lated by setting the value of "LI" to a respective 
officer or enlisted life expectancy, and then modify- 
ing it with *he “ADJUSTMENT TO LIFE EXPECTANCY AT 
RETIREMENT" value ("LONG"): 


LI СЕС) 
ESSE + LONG 


An intermediate variable used to eventually compute 
the present value of future retirement benefits. It is 
computed by adding "1" to the "ANNUAL DISCOUNT RATE" 
(0I) and raising that sum to the “LIFE EXPECTANCY" 
(LI) exponent: 


й аш Керу” 
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PRE 


NC 


RC 


PRO 


PROP 


LISTING OF VARIABLES ANO COMPUTATIONS IN 
OROER OF APPEARANCE IN THE COMPUTER PROGRAM 


"PRESENT VALUE OF FUTURE RETIREMENT BENEFITS” is 
computed by multiplying the “PROJECTED ANNUAL 
RETIREMENT PAY" (ANN) as follows: 


о: 


01 


An intermediate variable used to eventually compute 
the current year individual normal cost. It is com- 
puted as follows: 


Тэ 1.0 11 4 


"YEAR GROUP NORMAL COST" is computed as follows: 
NCox PRE * (OI/T) 


An intermediate variable assigned the value of the 
normal cost for a particular year group. It is used 
later to compute "YEAR GROUP TOTAL COST” (TRC): 


RC NC 


. 


TRC = PEC + RC 


"RETIREMENT PROBABILITY". It has a default value of 
-l2 for enlisteds and .4 for officers officers multe S 
modified by the program as follows: 


PRO = (PRO + PROP) * DELT 
Ап intermediate variable assigned the value of either 
“ADJUSTMENT TO ENTRANT RETIREMENT PROBABILITY FOR 
OFFICERS" (PROR) or "AOJUSTMENT TO ENTRANT RETIREMENT 


PROBABILITY FOR ENLISTEO PERSONNEL" (PROQ). PROR and 
PROQ are input by the operator. 


Гү 


22 


Е2(0) з 


TGT s 


NEW = 


PEC = 


ТАС = 


LISTING OF VARIABLES AND COMPUTATIONS IN 
ORDER OF APPEARANCE IN THE COMPUTER PROGRAM 


"PROBABILITY OF ENTRANT RETIRING AT TARGET GRADE" 
taken from the “TARGET RETIREMENT PROBABILITY MATRIX" 
(FZ). The specific probability is determined by tne 
value of "G", 


"PROBABILITY THAT ENTRANT RETIRES AT SELECTED TARGET" 
is assigned the value оҒ Е7(6): 


TGT = FZ(G) 


"NUMBER OF ENTRANTS IN INITIAL YEAR OF SERVICE”. This 
value is computed as follows: 


IF (G>=20) THEN NEW = 1000 * 00(YS-1950) 
IF (G<20) THEN NEW = 1000 * ED(YS-1950) 


00(x)/EO(x) are the "OFFICER and ENLISTEO ACCESSION 
MATRICES” that contain accessions of officer/enlisted 
personnel for tne years 1951-1982, inclusive. 


"TARGET POPULATION RETIRING" calculated by multiplying 
the "PROBABILITY OF A NEW ENTRANT RETIRING” (PRO) Бу 
“PROBABILITY THAT THE ENTRANT RETIRES AT SELECTED 
TARGET” (TGT) and by the “NUMBER OF ENTRANTS IN THE 
INITIAL YEAR OF SERVICE” (NEW): 


PEC = PRO ® TGT * NEW 
“CURRENT TARGET GROUP RETIREMENT COST” is calculated 
by multiplying the "TARGET POPULATION RETIRING" (РЕС) 
and the "CURRENT YEAR INDIVIDUAL RETIREMENT COST" (RC) 
together: 


TROS PECATZ ог 
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LISTING OF VARIABLES ANO COMPUTATIONS IN 
OROER OF APPEARANCE IN THE COMPUTER PROGRAM 


For "YEAR OF ENTRY" (YS) after 1980, the following sub- 
routine is utilized to calculate last 3 yrs. average 


salary: 
ÀA*N-2 (The basepay for the year that is 
RP s 8P two years before retirement is 
FOR K = 1 TO A calculated.) 


VP = RP * IN 
RP = VP + RP 
NEXT K 


SPa (IN? RP) ЕР (The basepay for the year that 
15 one year before retirement 
ts calculated.) 


PP $ (SP + RP РОИ (The basepay for the retirement 
year was previously computed. 


The three basepays are added 
and averaged.) 
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ZU AU SINN DI QS 
VARIABLES IN THE ORIGINAL ENTRYAGE COMPUTER PROGRAM 
(LISTED IN ALPHABETICAL ORDER) 


ALPHABETICAL LISTING 
OF VARIABLES AND COMPUTATIONS 


I. INDIVIDUAL ENTRY AGE COST METHOD 


AG "AVERAGE AGE AT RETIREMENT FOR THIS PAYGRADE" taken 
from the “AVERAGE AGE AT RETIREMENT MATRIX” [AG=F(G) ] 
contained in the program, or can be changed by the 
Operator. 


"PROJECTED ANNUAL RETIREMENT PAY" computed by multi- 
plying "PERCENTAGE OF BASEPAY FOR RETIREMENT" (FAC) 
by the "PROJECTED MONTHLY BASEPAY" (PP) and by 12 
months: 


ANN = FAC * PP * 12 


"APPLIED GAIN OR LOSS" computed as follows: 


01 
AP = (FC + GL) x 
(1 - X) 


"MONTHLY BASE PAY AT RETIREMENT GRADE" based upon 
Paygrade and length of service. Taken from the current 
(1983) pay matrix: 


BP = P(G,L) 


"CURRENT FISCAL YEAR", contained in program as a fixed 
value (1983). 


"PROGRAM CHOICE", i.e., 'IND' for individual method 
cost calculations, 'AGG' for aggregate method cost 
calculations, 'GANG' for expanded multiyear individual 
cost calculations, and 'HALT' to exit the program. 


"AVERAGE LOS MATRIX" containing twenty-six length-of- 
Service (LOS) values corresponding to the twenty-six 
different paygrades: EL-E9, Wl1-W4, Ol, OLE, O2, O2E, 
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DI 


DL 


DM 


E (x) 


ED (x) 


EI 


E(x) 


FAC 


ЕС 


ALPHABETICAL LISTING 
OF VARIABLES AND COMPUTATIONS 


"ANNUAL DISCOUNT RATE" default to .29 (i.e., 9$ per 
year), but may be changed by the operator. 


"PERCENTAGE OF BASEPAY PER YEAR OF SERVICE", default 
value of .025 (1.e., 2 1/2 3 pert yr. of service), EU 
can be changed by operator. 


"MAXIMUM PERCENTAGE OF BASE PAY" that a retiree may 
receive. Default value is .75 (i.e., 75%), but can be 
cnanged by operator. If FAC is greater than DM, then 
FAC is assigned the value of DM. 


"ENLISTED LIFE EXPECTANCY MATRIX" containing thirty- 
one non-disability retired life expectations for ages 
36 to 66 years, inclusive. 


"ENLISTED ACCESSION MATRIX" containing thirty-two 
values for accessions of enlisted personnel for the 
years 1951-1982, inclusive. 


"PREVIOUS YEAR DISCOUNT RATE". Can be assigned the 
same value as the current year's "ANNUAL DISCOUNT 
RATE" (DI), or can be changed by the operator. 


"AVERAGE AGE AT RETIREMENT MATRIX" containing twenty- 
six average age values for each of the twenty-six 
different paygrades. 


"PERCENTAGE OF BASEPAY FOR RETIREMENT" that a retire 
has earned for retirement pay . Determined by multi- 
plying "AVERAGE/ESTIMATED LENGTH OF SERVICE" (LOS) by 
"PERCENTAGE OF BASEPAY PER YEAR OF SERVICE (DD): 


FAC = LOS * DL 


"CURRENT YEAR GAINS OR LOSSES" computed by subtracting 
"PREVIOUS YEAR INDIVIDUAL NORMAL COST" (OC) from the 
"CURRENT YEAR INDIVIDUAL NORMAL COST" (NC): 
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FZ (x) 


FZ (G) 


GL 


IN 


JN 


LI 


ALPHABETICAL LISTING 
OF VARIABLES AND COMPUTATIONS 


"TARGET RETIREMENT GRADE PROBABILITY MATRIX" contain- 
ing a probability of retiring in a particular paygrade 
for each of the twenty-six paygrades. 


"PROBABILITY OF ENTRANT RETIRING AT TARGET GRADE" 
default to a value from the “TARGET RETIREMENT 
PROBABILITY MATRIX" (FZ) dependent upon paygrage, 
or can be changed by operator. 


An integer from 1 to 26 corresponding to "PAYGRADE AT 
RETIREMENT", e.g., G*»l for El, G22 for B2, G*-10 for 
Wl, G=26 for 010. Used to determine values from LOS 
and pay matrices. 


"DEFERRED GAINS OR LOSSES". This value is either input 
by the operator if known, or defaults to a "Ø" value 
if unknown. 


Assigned the value of "G" which is an integer value 
corresponding to the individual's paygrade. 


"SALARY SCALE INCREASE" default to .055, or can be 
changed by operator. 


"SALARY SCALE $" used to calculate the "PREVIOUS YEAR 
NORMAL COST" (OC). Can be assigned the same value as 
current year "SALARY SCALE INCREASE" (IN) or can be 
changed by the operator. 


An integer ranging from l1 to 6 depending upon the 
value of LOS, e.g., if 20<=LOS=>22 then Ls1, etc. 
Used with "G" to determine values from the pay 
matrix. 


"REMAINING LIFE EXPECTANCY (at retirement) FROM 
ACTUARIAL TABLES" taken from "ENLISTED/OFFICER 
LIFE EXPECTANCY MATRICES". Determined by “AVERAGE 
AGE AT RETIREMENT FOR THIS PAYGRADE" ([(LI=E(Z) or 
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LOS 


MI 


NC 


NEW 


OC 


OD (x) 


ALPHABETICAL LISTING 
OF VARIABLES AND COMPUTATIONS 


Either “AVERAGE LENGTH OF SERVICE FOR THIS PAYGRADE" 
taken from the "AVERAGE LOS MATRIX" [LOSsD(G)] con- 
tained in the program, or an "ESTIMATED LENGTH OF 
SERVICE AT RETIREMENT" input by the operator. 


Assigned the value of "L" which is an integer value 
corresponding to the individual's LOS. 


"PREVIOUS YEAR LIFE EXPECTANCY". Can be assigned the 
same value as the current year's "REMAINING LIFE 
EXPECTANCY (at retirement)", or can be changed by the 
operator. 


"NUMBER OP YEARS TO RETIREMENT" determined by 
Subtracting "CURRENT YEAR" (CF) from "PROJECTED 
RETIREMENT YEAR" (RE): 


N 3 RP - CF 


"CURRENT YEAR INDIVIDUAL COST" is computed as follows: 
NC = PRE * (DI/T) 


"NUMBER OF ENTRANTS IN INITIAL YEAR OF SERVICE". This 
value must be input by the operator. 


"NUMBER OF YEARS TO RETIREMENT FROM THE PREVIOUS YEAR" 
and is determined by adding "1" to the "NUMBER OF 
YEARS TO RETIREMENT" (N): 
Оз Мм +1 
"PREVIOUS YEAR INDIVIDUAL NORMAL COST" is computed 
as follows: 
OC = УВЕ (ЕТУШ) 


"OFFICER ACCESSION MATRIX” containing thirty-two 
values for officer accession values for the years 
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02 (х) 


Р(х,у) 


PEC 


PGS 


PP 


PRE 


ALPHABETICAL LISTING 
OF VARIABLES AND COMPUTATIONS 


"OFFICER LIFE EXPECTANCY MATRIX” containing thirty-one 
non-disability retired life expectations for ages 
36 to 66 years, inclusive. 


"CURRENT YEAR PAY MATRIX" with 26 rows defined by pay 
grade and 6 columns defined by years of service. The 
rows contain basepay amounts for all twenty-six pay- 
Grades (2 1-Е9, СІ, ОТЕ, 02, 02Е, 03, ОЗЕ, 034-018). The 
columns correspond tp pay entitlements for 298, 22, 24, 
26, 28, and 30 years of service. 


"TARGET POPULATION RETIRING" calculated by multiplying 
the "PROBABILITY OF A NEW ENTRANT RETIRING" (PRO) by 
"PROBABILITY THAT THE ENTRANT RETIRES AT SELECTED 
TARGET" (TGT) and by the "NUMBER OF ENTRANTS IN THE 
INITIAL YEAR OF SERVICE" (NEW): 


РЕС = PRO * TGT * NEW 


"РАУСКАОЕ АТ RETIREMENT” input by operator as El, E9, 
ИЛО У ОЗЕ, 95, etc, 


"PROJECTED MONTHLY BASEPAY AT RETIREMENT GRADE" 
computed by compounding "CURRENT MONTHLY BASEPAY AT 
RETIREMENT GRADE" (BP) by the "SALARY SCALE INCREASE" 
(IN): 


PP а ВР 

FOR I = 1 TON 
TP = PP * IN 
PP TP + PP 
NEXT I 


"PRESENT VALUE OF FUTURE RETIREMENT BENEFITS" is 
computed by multiplying the “PROJECTED ANNUAL 
RETIREMENT PAY" (ANN) as follows: 


l - (1/Q) 


DI 


PRE = ANN x 
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PRO 


QP 


QRE 


R(x,y) 


RC 


RE 


ALPHABETICAL LISTING 
OF VARIABLES AND COMPUTATIONS 


"PROBABILITY OF A NEW ENTRANT RETIRING", It has a 
default value of .12 for enlisteds and .4 for 
officers, but can be changed by the operator. 


An intermediate variable used to eventually compute 
the present value of future retirement benefits. It is 
computed by adding "1" to the “ANNUAL DISCOUNT RATE" 
(DI) and raising that sum to the “LIFE EXPECTANCY" 
(LI) exponent: 


Q s (Тоттори от 


The previous year's "MONTHLY BASE PAY AT RETIREMENT" 
corresponding to the current year's "BP", Taken from 
the "PREVIOUS YEAR PAY MATRIX": 


QP = R(H,M) 


"PREVIOUS YEAR PRESENT VALUE OF FUTURE RETIREMENT 
BENEFITS" is computed as follows: 


1 0109) 
ОКЕ а ВМА х — — 
ЕІ 


"PREVIOUS YEAR PAY MATRIX" containing the same rows 
and columns as the "CURRENT YEAR PAY MATRIX" ([P(x,y)] 
but with the previous year's basepay data. 


"CURRENT YEAR (total) RETIREMENT COST" equals 
the "CURRENT YEAR INDIVIDUAL NORMAL COST" (NC) plus 
any "APPLIED GAINS OR LOSSES" (AP): 

RC » NC * AP 
"PROJECTED RETIREMENT YEAR" determined by adding 
"LENGTH OF SERVICE" (LOS) and "YEAR OF SERVICE ENTRY" 
(YS) together: 


RP = LOS + YS 
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ТСТ = 


TRC 2 


ALPHABETICAL LISTING 
OF VARIABLES AND COMPUTATIONS 


An intermediate value used to eventually compute the 
previous year's present value of future retirement 
benefits. It is computed by adding "l1" to the 
"PREVIOUS YEAR DISCOUNT RATE" (EI) and raising to the 
"PREVIOUS YEAR LIFE EXPECTANCY" (MI) exponent: 


Sl Eee SMT 


An intermediate variable used to eventually compute 
the current year individual normal cost. It is com- 
puted as follows: 


T = ((1 + DI) ** LOS] - 1 


"PROBABILITY THAT ENTRANT RETIRES AT SELECTED TARGET" 
is default to the FZ(G) matrix value, or can be 
changed by the operator. 


"CURRENT TARGET GROUP RETIREMENT COST" is calculated 
by multiplying the "TARGET POPULATION RETIRING" (PEC) 
and the "CURRENT YEAR INDIVIDUAL RETIREMENT COST" (RC) 
together: 


ТЕС Ка РЕС * RC 

An intermediate variable used to eventually compute 
the previous year's individual normal cost. It is 
computed as follows: 

U = [((1 * EI) ** LOS] - 1 
An intermediate variable used in the calculation of 
the "APPLIED GAIN OR LOSS" (AP). It is computed by 
adding "1" to the "NUMBER OF YEARS TO RETIREMENT" (N): 


Е 
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ALPHABETICAL LISTING 
OF VARIABLES AND COMPUTATIONS 


X « Ап intermediate variable used in the calculation of 


XP 


YS 


the "APPLIED GAIN OR LOSS" (AP). It is calculated as 
follows: 


1 


Х зж ЖАА ЦЦ — 


(е ОУУ 


"PROJECTED MONTHLY BASEPAY AT RETIREMENT CALCULATED 
FROM THE PREVIOUS YEAR". It is computed as follows: 


XP = QP 

FOR J = 1 TOO 
UP =a ХР * JN 
XP = UP + XP 
NEXT J 


"YEAR OF SERVICE ENTRY" input by operator, e.g., 1972. 


2 = An integer ranging from 1 to 31 depending upon the 


value of AG (e.g., if 36<AG<37 then Zl; if 45<AG<46 
Сһер 2331). 
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ALPHABETICAL LISTING 
OF VARIABLES AND COMPUTATIONS 


II. AGGREGATE ENTRY AGE COST METHOD 


BLIP = An intermediate variable used to eventually calculate 
the “CURRENT YEAR GAINS/LOSSES APPLIED” (FA). It is 
calculated as follows: 


BLIP = GI/HIST 


FA = “CURRENT YEAR GAINS/LOSSES APPLIED" is computed by 
adding the "CURENT YEAR'S ACTUARIAL GAIN/LOSS" (FD) 
together, and multiplying the sum by "BLIP": 


ЕА ре (ИС * FD) * BLIP 


FD = "AMOUNT OF DEFERRED GAIN OR LOSS" is entered by the 
Operator if Known, or defaults to a "@" value if not 
known. 


GI = "DISCOUNT RATE" entered by the operator as a decimal, 
e.g., 11.2% is entered as .112. 


GIS = An intermediate variable used to eventually calculate 
the "CURRENT YEAR GAINS/LOSSES APPLIED" (FA). It is 
calculated as follows: 


GIS = (1 * GI) ** 20 


GIST = An intermediate variable used to eventually calculate 
the "CURRENT YEAR GAINS/LOSSES APPLIED" (FA). It is 
calculated as follows: 


1 
GIST = 





GIS 


HIST = An intermediate variable used to eventually calculate 
the "CURRENT YEAR GAINS/LOSSES APPLIED" (FA). It is 
calculated as follows: 


HIST = (l - GIST) 
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ALPHABETICAL LISTING 
OF VARIABLES AND COMPUTATIONS 


"CURRENT YEAR ACTIVE FORCE NORMAL COST" is equal to 
the "NORMAL COST PERCENTAGE FACTOR" (PF) multiplied 
by the "CURRENT FISCAL YEAR TOTAL PAY BASE" (TBE): 


MCAS PE * TSE 


"PRESENT VALUE OF FUTURE BENEFITS". This value must be 
entered by the operator in millions of dollars, e.g., 
$4,334,785,192.32 entered as 4334.785. 


"PRESENT VALUE OF FUTURE COMPENSATION", This value 
must be entered by operator in millions of dollars, 
e.g., $9,127,589,283.63 is entered as 9127.589. 


"NORMAL COST PERCENTAGE FACTOR" is computed by divid- 
ing the "PRESENT VALUE OF FUTURE BENEFITS" (PBE) by 
the "PRESENT VALUE OF FUTURE COMPENSATION (PCE): 


PBE 
РЕ = 





РСЕ 
The program allows the operator to change the value. 


"PREVIOUS YEAR NORMAL COST à FACTOR" is entered by the 
operator as a decimal, e.g., 43.2% is entered as .432. 


"CURRENT FISCAL YEAR TOTAL BASE PAY", This value must 
be entered by the operator in millions of dollars, 
e.g., $27,485,552,035.89 is entered as 27485.552. 


"CURRENT YEAR TOTAL RETIREMENT COST" is computed by 
adding the "CURRENT YEAR ACTIVE FORCE NORMAL COST" 
(MC) and the "CURRENT YEAR GAINS/LOSSES APPLIED" 
(FA): 

TRC = MC + FA 


"PREVIOUS YEAR TOTAL BASE PAY" is entered by the 
operator in millions of dollars, е.9., 522; 432751657910 
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VC = 


WC 


ALPHABETICAL LISTING 
OF VARIABLES AND COMPUTATIONS 


"PREVIOUS YEAR NORMAL COST” is entered by the operator 
if known. Otherwise, it is calculated by multiplying 
the "PREVIOUS YEAR NORMAL COST $ FACTOR" (QF) by the 
"PREVIOUS YEAR TOTAL BASE PAY" (UBF): 


VC = QF * UBF 
"CURRENT YEAR'S ACTUARIAL GAIN OR LOSSES” computed by 
Subtracting the "PREVIOUS YEAR ACTIVE FORCE NORMAL 
COST" (VC) from the "CURRENT YEAR ACTIVE FORCE NORMAL 
COSTZ (MCI: 


WC = MC - VC 


Il 
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ALPHABETICAL LISTING 
OF VARIABLES AND COMPUTATIONS 


III. MULTIYEAR EXPANDED INDIVIDUAL NORMAL COST METHOD 


ADJ = 


AG = 


BP = 


С$ = 


"ADJUSTMENT TO LOS AND AGE AT RETIREMENT" value is 
entered by operator as an integer, either unsigned 
or with a negative sign, e.g., -2 indicating a 
decrease of two years. A zero (0) is entered for no 
change. 


"AVERAGE AGE AT RETIREMENT" taken from the "AVERAGE 
AGE AT RETIREMENT MATRIX” [F(G)] and modified by the 
"ADJUSTMENT TO LOS AND AGE AT RETIREMENT” value (ADJ): 


AG = F(G) + ADJ 
"PROJECTED ANNUAL RETIREMENT PAY" computed by multi» 
plying "PERCENTAGE OF BASEPAY FOR RETIREMENT” (FAC) 
by the "PROJECTED MONTHLY BASEPAY" (PP) and by 12 
months: 
ANN » FAC * PP * 12 
"MONTHLY BASE PAY AT RETIREMENT GRADE" based upon 
paygrade and length of service. Taken fram the current 
(1983) pay matrix: 
BP = P(G,L) 
"LEVEL OP DETAIL" for program, і.е., 'Sum' for Summary 


Totals and 'Detail' for Full Detail. This value is 
input by the operator. 


"CURRENT FISCAL YEAR" with a program assigned value of 
1983; 


12 
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ALPHABETICAL LISTING 
OF VARIABLES AND COMPUTATIONS 


DELT = A "DELTA" factor used to adjust attrition. A value of 


(1) "1" is assigned by the program if “AVERAGE LOS" 
[D(G) *ADJ] is greater than "MINIMUM LOS FOR 
RETIREMENT" (MRT), or 


(2) is calculated by the following formula if 
[ (D(G) *àDJ) «MRT and (MRT»208 yrs.)]: 


DELT s 1.00** (MRT-D (G) -ADJ] 


D(G) = “AVERAGE LOS FOR A PARTICULAR PAYGRADE" from the 
"AVERAGE LOS MATRIX". Determined by the value 
assigned to the integer variable, "G". 


DI = "DISCOUNT RATE” entered by the operator as a decimal, 
e.g., .08 for 8.0%. 


DL = “RETIREMENT PAY BASIS PER YEAR OF SERVICE" (i.e., the 
$ rate of retired pay per year of service) is entered 
by the operator as a decimal, e.g., .025 for 2.5% per 
year. 


DM = “RETIREMENT PAY CEILING AS PERCENTAGE OP BASIC PAY" 
(i.e., the maximum % of pay basis at retirement) is 
entered by the operator as a decimal, e.g., .75 for 
75%. 


Е(2) = “ENLISTED LIFE EXPECTANCY" taken fram the "ENLISTED 
LIFE EXPECTANCY MATRIX" [E(x)]. The specific life 
expectancy value is determined by the integer variable 
"2", which corresponds to a specific retirement age. 


FAC = "PERCENTAGE OF BASEPAY FOR RETIREMENT" that a retire 
has earned for retirement pay. Determined by multi- 
plying "AVERAGE/ESTIMATED LENGTH OF SERVICE" (LOS) by 
"PERCENTAGE OF BASEPAY PER YEAR CF SERVICE (DL): 


FAC 2 LOS * DL 
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F (G) 


FZ (G) = 


ІМ а 


LI 2 


LONG = 


ALPHABETICAL LISTING 
OF VARIABLES AND COMPUTATIONS 


- "AVERAGE AGE AT RETIREMENT", taken fram the "AVERAGE 
AGE AT RETIREMENT MATRIX" (F(x)]. Value of F(G) is 
determined by the particular value of the integer 
variable, "G", which corresponds to a particular 


paygrade. 


"PROBABILITY OF ENTRANT RETIRING AT TARGET GRADE" 
taken fram the "TARGET RETIREMENT PROBABILITY MATRIX" 
(FZ). The specific probability is determined by the 
value of "G". 


An integer fran l to 26 corresponding to "PAYGRADE AT 
RETIREMENT", e.g., G2l for El, G=2 for E2, Gs1Q0 for 
Wl, Gz26 for 010. Used to determine values fram LOS 
and pay matrices. 


"SALARY SCALE ESTIMATOR" (i.e., the rate of salary 
increase) is entered by the operator as a decimal, 
e.g., .055 for 5.5% yearly rate for salary increases. 


An integer ranging fram 1 to 6 depending upon the 
value of LOS, e.g., if 28<2L0S2>22 then L=l, etc. 
Used with "G" to determine values from the pay 
matrix. 


"REMAINING LIFE EXPECTANCY AT RETIREMENT” is canputed 
by setting the value of "LI" to a respective officer 
or enlisted life expectancy, and then modifying it 
with the "ADJUSTMENT TO LIFE EXPECTANCY AT RETIREMENT" 
value ("LONG"): 


LI з Е(2) 
LI = LI + LONG 


"ADJUSTMENT TO LIFE EXPECTANCY AT RETIREMENT® 15 
entered by the operator as an integer, either unsigned 
or with a negative sign, e.g., 3 for three years. A 
zero is entered for no change. 


14 


108 


LOS = 


OZ (Z) = 


ALPHABETICAL LISTING 
OF VARIABLES AND COMPUTATIONS 


"LENGTH OF SERVICE" is computed by adding "AVERAGE 
LOS FOR A PARTICULAR PAYGRADE" (D(G)] to "ADJUSTMENT 
TO LOS AND AGE AT RETIREMENT" (ADJ). 


LOS = D(G) + ADJ 


“MINIMUM LOS FOR RETIREMENT” (i.e., the minimum length 
of service required in order to retire) is entered by 
the operator as an integer, e.g., 25 for twenty-five 
years. 


"NUMBER OF YEARS TO RETIREMENT” determined by 
subtracting "CURRENT YEAR” (CF) fran "PROJECTED 
RETIREMENT YEAR" (RF): 


МаВЕ-СЕ 


"YEAR GROUP NORMAL COST" is canputed as follows: 


NC = PRE * (DI/T) 


"NUMBER OF ENTRANTS IN INITIAL YEAR OP SERVICE". This 
value is camputed as follows: 


IF (G»220) THEN NEW s 190900 * OD(YS-1950) 
IF (GX20) THEN NEW » 1000 * ED(YS-1950) 


OD(x)/ED(x) are the "OFFICER and ENLISTED ACCESSION 
MATRICES" that contain accessions of officer/enlisted 
personnel for the years 1951-1982, inclusive. 


"OFFICER LIFE EXPECTANCY" taken fram the "OFFICER 
LIFE EXPECTANCY MATRIX" (OZ(x)]. The specific life 
expectancy value is determined by the integer variable 
"2", which corresponds to a specific retirement age. 
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ALPHABETICAL LISTING 
OF VARIABLES AND COMPUTATIONS 


PEC = “TARGET POPULATION RETIRING" calculated by multiplying 
the "PROBABILITY OF A NEW ENTRANT RETIRING" (PRO) by 
“PROBABILITY THAT THE ENTRANT RETIRES AT SELECTED 
TARGET" (TGT) and by the "NUMBER OF ENTRANTS IN THE 
INITIAL YEAR OF SERVICE" (NEW): 


РЕС = PRO * TGT * NEW 


PGS = "PAYGRADE AT RETIREMENT" initially set by program as 
"El". After computing normal and total costs for this 
paygrade, resets value to "E2" and recamputes normal 
and total costs. Program continues camputations until 
costs for "019" are camputed. 


P(G,L) = “CURRENT YEAR PAY” taken from the "CURRENT YEAR PAY 
MATRIX", The current year pay value is determined by 
the values of "G" and "L", which are assigned values 


based upon paygrade and years of service over 20 yrs. 


PP = “PROJECTED MONTHLY BASEPAY AT RETIREMENT GRADE" 
camputed by canpounding "CURRENT MONTHLY BASEPAY AT 
RETIREMENT GRADE" (BP) by the "SALARY SCALE INCREASE" 


(IN): 


PP = BP 
FOR I = 1 TON 
TP = Pp * IN 
PP = TP + PP 
NEXT I 


PRE = “PRESENT VALUE OF FUTURE RETIREMENT BENEFITS” is 
camputed by multiplying the “PROJECTED ANNUAL 
RETIREMENT PAY" (ANN) as follows: 


1- (1/0) 


РКЕ =з АМЧ х 


DI 


PRO = "RETIREMENT PROBABILITY". It has a default value of 
.12 for enlisteds and .4 for officers officers, but is 


modified by the program as follows: 
PRO = (PRO + PROP) * DELT 
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ALPHABETICAL LISTING 
OF YARIABLES ANO COMPUTATIONS 


PROP = An intermediate variable assigned the value of either 
"AOJUSTMENT TO ENTRANT RETIREMENT PROBABILITY FOR 
OFFICERS” (PROR) or "AQJUSTMENT TO ENTRANT RETIREMENT 
PROBABILITY FOR ENLISTEO PERSONNEL” (PROQ). PROR and 
PROQ are input by the operator. 


PROQ * "AOJUSTMENT TO ENTRANT RETIREMENT PROBABILITY FOR 
ENLISTEO PERSONNEL" is entered by the operator as 
a decimal, e.g., -.02 for a 2% decrease. The base- 
line value is .12 (i.e., 12% probability). <A zero 
is entered for no change to the baseline value. 


PROR = "AQJUSTMENT TO ENTRANT RETIREMENT PROBABILITY FOR 
OFFICERS" is entered by the operator as a decimal, 
e.g., .01 for a 1$ increase. The baseline value is 
.40 (1.e., 40% probability). A zero (0) is entered 
for no change to the baseline value. 


Q = An intermediate variable used to eventually compute 
the present value of future retirement benefits. It is 
computed by adding “1" to the "ANNUAL OISCOUNT RATE" 
(0I) and raising that sum to the "LIFE EXPECTANCY" 
(LI) exponent: 


ОСО ЕТ 
RC » An intermediate variable assigned the value of the 
normal cost for a particular year group. It is used 


later to compute "YEAR GROUP TOTAL COST" (TRC): 
RC * NC 


Ф 


ТАС = РЕС + ВС 


RF » "PROJECTEO RETIREMENT YEAR" determined by adding 
"LENGTH OF SERVICE" (LOS) and "YEAR OF SERVICE ENTRY" 
(YS) toge*her: 


RF = LOS + YS 


I 


111 


ALPHABETICAL LISTING 
OF VARIABLES ANO COMPUTATIONS 


T = An intermediate variable used to eventually compute 
the current year individual normal cost. It is com- 
puted as follows: 


Та О I 
TGT » "PROBABILITY THAT ENTRANT RETIRES AT SELECTEO TARGET" 
is assigned the value of FZ(G): 
ТӨТ s FZ(G) 


TRC = "CURRENT TARGET GROUP RETIREMENT COST" 15 calculated 
by multiplying the "TARGET POPULATION RETIRING” (PEC) 
and the "CURRENT YEAR INOIVIOUAL RETIREMENT COST" (RC) 
together: 


TRC = PEC * RE 


ТТАС = “TOTAL YEAR GROUP COST" of non-disability retirees by 
year group, starting with 1953. Computed by the 
formula: 


TTRC = TURE + TRC 
TTTRC = "REGULAR NAVY COST” of its non-disability retirees. 
Computed by the following formula: 
TTTRC = TTTRC + ТТАС 
YS = "YEAR OF SERVICE ENTRY” with the initial value of 
1953, and then updated by one year for the next year 
group cost calculations by the formula: 


та 1 


1 « Ал integer ranging from 1 to 31 depending upon the 
value of the retiree's age, "AG" (e.g., if 36«AG«37 
then 131; if 45«AG«46 then 2231). 
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ALPHABETICAL LISTING 
OF VARIABLES AND COMPUTATIONS 


For “YEAR OF ENTRY” (YS) after 1980, the following sub- 
routine is utilized to calculate last 3 yrs. average 


salary: 

A2N-2 (The basepay for the year that is 
RP = BP two years before retirement is 
FOR K = 1T0A calculated.) 

VP а RP * IN 

RP = VP + RP 

NEXT K 

SP = (IN * RP) + RP (The basepay for the year that 


is one year before retirement 
is calculated.) 


PP = (SP + RP + PP)/3 (Тһе basepay for the retirement 
year was previously computed. 


The three basepays are added 
and averaged.) 


19 


113 


APPEND as 
ORIGINAL ENTRYAGE COMPUTER PROGRAM 


00005 rem start of entryage program 

00010 print '93OBOB/BO|/BOOOOOODOOOOOOOOO7BOPOOOOOOOOOOOOOO/OOOOOOOOBOOOO.OÓOOO!.|eog)e)oee: ! 
00015 print ‘This is a three part interactive program. It calculates indi-' 
00020 print 'vidual and aggregate military retirement costs. At this point' 
00025 print ‘please type in ind for the individual method cost calculations,' 
00030 print ‘agg for aggregrate method cost calculations, or gang for expanded ' 
00035 print ‘multi year individual cost calculations. If you wish to exit ' 
00040 print ‘the program type halt. Program loaded data has been derived from' 
00045 print ‘Department of Defense sources and considers 1983 to be the current' 
00046 print 'year. Please enter your program choice at this time.' 

00050 print 'J9OGOee/)OO|!BeeedOe|O|pOO)(]OeOeg])e|OOOOOO/OOOOpOOpDOOOOOOOOOOOO!OHOOOOÓO.Or ' 
00055 input ck$ 

00075 restore 

00080 dim p(27,7) 

00085 dim e(32) 

00090 dim ozt32) 

00095 dim dt27) 

00100 dim f(27) 

00105 dim fz(27) 

00110 dim r(27,7) 

00115 dim ed(35) 

00120 dim od(35) 

00125 rem 1983 pay matrix 

00130 read pC 151)5pt 1;2)5;pt( 1, 5); pt 1,49 ); pt 1; 5);pt 1,6) 

00135 read pt( 2,;,1);pt 2,2); pt 2,3) ;p( 2,8); pt 255), pt 2,6) 

00140 read p( 3,1);pt 3,2); pt 3,3), pt 558); pt 5,5), pt 3,6) 

00145 read РО9Э,1)»р(9,2)»р(9»3)»Р(9»9)»р(9,5)»Р (9»6) 

00150 геаа р(5,1),р(5,2),0(5,35),р(5,%),р(5,5),р(5,6) 

00155 read p(651)5;p( 6,52); pt 653)5;pt 654); pt 655), pt 6,6) 

00160 read pCU751)5» pt 7,2), pt 7, 3); pt 7,4); pt 7; 5)5 pt 7,6) 

00165 read p(8;1);p( 852) 5;p( 8, 3); p( 854 );p( 8,5), p( 8,6) 

00170 read pt( 9,1)5;p( 9,2),pt 9,3); pt 9,4); pt 9,5), pt 9,6) 

00175 read pC105;1),; pt 10,2); pt 10, 3); pt 10,4 ), pt 10,5), pt 10,6) 

00180 read pC 1151); pt 11,2), pt 11; 3); pt 11,4 ); pt 11,5); p( 115,6) 

00185 read pC 12,1); pt 12,2); pt 1253) ;p( 12,4 ); pt 1255), pt 12,6) 

00190 read pt( 13,1);pt 13,2); pt 13, 3) pt 13,6), p( 13,5), pt 155,6) 

00195 read p( 1451);p( 1852), pt 16, 3); pt 15,4 );pt 185,5), pt 15,6) 

00200 read p( 15,1), p( 15,2),;pt 15, 3); pt 15,4); pt 15,5), pt 15,6) 

00205 read p( 16;1);,pt( 16,2); pt 1653), pt 16,4 ),p( 1655), pt 165,6) 

00210 read p( 17,;1);pt 17,2), pt 17; 3); pt 17,6 );p( 17,5), pt 175 6) 

00215 read p(1851);pt( 18,2); pt 18, 3), p( 18,4 );p(é 18,5), pt 18,6) 

00220 read pt 19,1);pt( 19,2); pt 19,3), p( 19,4), pt 19,5), pt 19,6) 

00225 read pC 20,1), pt 20,2); pt 20, 3); pt 20,4 2), pNé 20,5), pt 20,6) 

00230 read p(21,1),;p( 21,2); pt 21, 3), pt 21,4); p( 215,5); pt 215,6) 

00235 read p(22,1),p( 22,2);p( 22, 3); pt 22,4 ); pt 22,5), pt 22,6) 

00240 read p(23,1),p(23,2),p(23,3),p(2354),p(23,5) »pl23,6) 

00245 read p( 245,1), pt 26,2); pt 26, 3), pt 26,4), pt 2655), pt 26,6) 
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00250 
00255 
00260 
00265 
00270 
00275 
00280 
00285 
00290 
00295 
00300 


00305” 


00310 
00315 
00320 
00325 
00330 
00335 
00340 
00345 
00350 
00355 
00360 
00365 
00370 
00375 
00380 
00585 
00390 
00595 
00400 
00405 
00410 
00415 
00420 
00425 
00430 
00435 
00440 
00445 
00450 
00455 
00460 
00465 
00470 
00475 
00480 
00485 
00490 
00495 
00500 
00505 
00510 
00515 
00520 
00525 
00530 
00535 
00540 
00545 
00550 
00555 
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read p(25,1),p( 25,2), p( 25,3), p( 25,4 ); p( 25,5), p( 25,6) 

read p(26,1),p( 26,2), p( 26,3) pL 26,4 ) ;pC 26,5), p( 26,6) 

rem enlisted life expectancy data 

read е(1),;е(2),е(25),е(4),е(5),е(6),е(7),е(8),е(9),е( 10),e(11) 

геач4 е(12),е(13),е(14),е(15),е(16),е(17),е(18),е(19),е(20),е(21) 

геаа е(22),е(25),е(24),е(25),е(26),е(27),е(28),е(29),е(50),е(51) 

rem officer life expectancy 

read oz(1),oz(2),oz( 3),oz(4),0z( 5),0z(6)5,0z(7),0z(8),0z( 9),oz( 100,oz( 11) 
read oz(12),oz(13),oz( 19),oz(15),oz(16)5;oz( 17),oz( 18) ,oz( 19) ,oz( 20),0z(21) 
read oz(22),oz(23),oz(26),o0z(25),0z( 26)5,0z( 27),oz( 28) ,oz( 29) ,oz( 30) ;oz( 31) 
rem average los matrix 

read 4(1),4(2),4(3),4(Ф4),4(5),4(6),4(7),4(8),4(9) 

геаа 4(10),4(11),4(12),4(13),4(19Ф),4(15),4(16),4(17),4(18) 

read 4(19),4(20),4(21),4(22),4(23),4(294),4(25),4(26) 

rem average age at retirement matrix 

геаа Ғ(1),Ғ(2),Ғ(5),Ғ(4),Ғ(Б),Ғ(6),Ғ(7),Ғ(8),Ғ(9) 

геаа Ғ(10),Ғ(11),Ғ(12),Ғ(15),Ғ(14),Ғ(15),Ғ(16),Ғ(17),Ғ(18) 

read f(19),£(20),£(21),£(22),£(23),£( 264 ),£( 25), £( 26) 

rem target retirement grade probability matrix 

read fz( 1),fz(2),fz( ),fz(4),fz( 5),fz(6)0,fz(7),fz(8),fz(9) 

read fzí(10),fz(11),;fz(12),;fz( 13),fz( 14), fz(15)5,fz( 160,fz( 17), £z( 18) 

read fz(19),fz(20),fz(21),fz( 220,fz(23),fz( 26 ),f£z( 25), fz( 26) 

rem enlisted accession matrix 

read ed(1),;ed(2),ed( 3),ed( 4) ,ed( 5) ;ed( 6), ed( 6),ed( B) ;,ed( 9) ,edt( 10),ed( 11) 
read ed(12),ed( 13) ;edt( 14),ed( 15),ed( 16) ;,ed( 17) ;ed( 18) ;ed( 19), ed( 20) ;ed( 21) 
read ed(22),ed(23),ed( 24) ,ed( 25) ,ed( 26) ;ed( 27) ;,ed( 28) ,ed( 29) ,ed( 30) ,edt 31) 
read ed( 32) 

rem officer accession matrix 

read od(1),od(2),0d(3),0d(4),0d(5),0d(6),0d(7),0d(8),0d(9),0d(10),0d(11) 
read od(12),0d(13),0d(14),0d(15},0d(16),0d(17),0d( 18) ,0d(19),o0d( 20 ),o0d( 21 ) 
read od(22),od( 23) ,od( 24) ,0d( 25) ,od( 26) ,0d( 27) ,0d( 28) ,od( 29) ,0d(30),0d( 31) 
read od( 32) 

rem 1983 pay data 

ЧЗаХа 573.6,573.6,573.6,573.6,573.6,573.6 
ЧЗаХа 642.9,642.9,642.9,642.9,642.9,642.9 
data 762.3,762.3,762.3,762.3,762.3,762.3 
data 888.6,888.6,888.6,888.6,888.6,888.6 
data 1102.8,1102.8,1102.8,1102.8,1192.8,1102. 
data 1299.3,1299.3,1299.3,1299.3,1299.3,1299. 
data 1483.5,1583.1,1582.1,1779.9,1779.9,1779. 
data 1681.2,1779.9,1779.9,1978,5,1978.5,1978. 
data 1917.9,2019,2019,2215.2,2215.2,2215.2 
data 1660.8,1660.8,1660.8,1660.8,1660.8,1660. 
data 1789.8,1862.4,1862.4,1862.4,1862.4,1862. 
data 1994.1,2066.4,2066.4,2139.3,2139.3,2139. 
ЧАаХа 2267.7,2243.6,2243.6,2526,2526,2526 

data 1382.4,1382.4,1382.4,1382.4,1382.4,1384. 
data 1716.6,1716.6,1716.6,1716.6,1716.6,1716. 
data 1752.6,1752.6,1752.6,1752.6,1752.6,1752. 
data 2029.2,2029.2,2029.2,2029.2,2029.2,2029. 
data 2361.9,2361.9,2361.9,2361.9,2361.9,2261. 
data 2397.3,2397.3,2397.3,2397.3,2397.3,2397. 
аа са 2731.2,2731-2)2731:2:,2731.2,2731.2»2731. 
data 3155.7,3266.1,3266.1,3266.1,3266.1,3266. 
data 3488.4,3690.9,3690.9,4002.9,4002.9,4002. 
data 4555.8,4555.8,4555.8,4555.8,4555.8,4555. 
data 4791.6,4791.6,4791.6,4791.6,4791.6,4791. 
data 4791.6,4791.6,4791.6,4791.65,4791.6,4791. 
data 4791.6,4791.6,4791.6,4791.6,4791.6,4791. 
rem enlisted life expectancy data 

Ч4аХа 37.47,36.57,35.67,34.77»33.86,32.95,32.04,31.14,30.24,29.34,28.46 
Чафа 27.59,26.73,25.88,25.04,24.22,23.41,22.62,21.86,21.1,20.36 
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00560 data 19.62,18.9,18.18,17.47,16.78,16.1,15.44,14.79,14.16,123.56 

00565 rem officer life expectancy data 

00570 4аха 90.9,39.97,39.09,38.13,37.2,36.28,35.37,39.95,33.59,32.63,31.73 
00575 Заа 30.83,29.994,29.06,28.18,27.31,26.95,25.6,294.75,23.91,23.09 
00580 data 22.27,21.46,20.65,19.87,19.08,18.31,17.55,16.81,16.07,15.35 
00585 rem average los data 

00586 rem note there is an entry in this matrix -and the two below- 

00587 rem for ol;,ole,o2,02e,03,o3e - hence 26 entries 

00590 data 20.8,20.54,20.8,21,21,21,21.8,22.7,26.3 

00595 data 22.152C.7,25.1,22.75»0C1.9, 2109,22 :5522 052 259800 

00600 data 24.1,264.2,24.9,28,29.9,30.4,30.4,30.4 

00605 rem average age at retirement data 

00610 data 18.8,39.8,40.6,90.7,940.5,90,90.9,941.5,42.9 

00615 4аа 93,994.1,92.2,97.1,93.1,93.1,99,494,93.6 

00620 data 43.6,44.6,46.5,50.5,535,56.2,58.1,59.8 

00625 rem target retirement grade probability data 

00630 data .0001,.0001,.0023,.0128, .0578, .2734, .4229, ..101, .0546 

00635 data .005,.017,.0102,.0129,.0003,.0003, .0044, .0044, .0252 

00640 data .0252,.3926,.5299,.2586,.002,.0138,.003,.0006 

00645 rem enlisted accession data 

00650 data 202.4,171.4,88.1,55.9,121.4,112,80.4,89.7,86.4,91.4,964.2 

00655 data 107.4,85.5,95,94.3,145.7,101.1,122.8,147.1,100.2,78.7,89.2 
00660 data 99,83.6,89.7,99.2,104.7,70.1,65.6,75.1,79.1,63.9 

00665 rem officer accession data 

00670 data 8,9,11.9,11.9,9.7,8.8,13.9,8.9,8.9,11,8.6 

00675 data 11.9,10.5,9.8,10.9,11,15,13.1,13.6,3.5,9.5,11.1 

00680 data 7.65,65,6.5,6.6,6.6,6.1,7,6.8,7.5,7 

00685 rem 1982 pay data 

00690 read r(1,;1);r(152),r(153),r(154),r(1,5),r(1,6) 

00695 read r(2,1),r(2,2),r(2,3),r(2,4),r(2,5),r(2,56) 

00700 read r(3,1),r(5,2),r(3, 3),r( 3589 ),r( 3,5) ,rT( 3,6) 

00705 read r(4,1),r(4,2),r(4,3),r(4,9),r(4,5),r(4,6) 

00710 read r(5,1),r(5,2),r(55,3),r(5,9),r(5,5),r( 55,6) 

00715 read r(6,1),r(65,2),r(65,3),r(6,4),r(6,5),r( 6,6) 

00720 read r(7,1),r(7,2),r(7,3),r(7,4),r(7,5),r(7,6) 

00725 read r(8,1),r(8,2),r(8,3),r(8,49),r(8,5),r(8,6) 

00730 read r(9,1),r(9,2),r(9,3),r(9,4),r(9,5),r( 9,6) 

00735 read г(10,1),г(10,2),г(10,5),г(10,%),г(10,5),г(10,6) 

00740 read г(11,1),г(11,2),г(11,5),г(11,%),г(11,5),г(11,6) 

00745 read г(12,1),г(12,2),г(12,5),г(12,%),г(12,5),г(12,6) 

00750 read r(13,1),r(15,2),r(13,3),r(13,4),r(13,5),r(135,6) 

00755 read r(14,1),;,r(14,2),r(14, 3),r(14,4),r( 19,5) ,r( 19,6) 

00760 read r(15,1),r(15,2);r(15,3),r(15,4),r( 15,5),r(15,6) 

00765 read г(16,1),г(16,2),г(16,5),г(16,%),г(16›5),г{ 16,6) 

00770 геаа г(17,1),г(17,2),г(17,5),г(17,%),г(17,5),г(17,6) 

00775 read r(18,1),r(18,2),r( 18,3), r( 18,4),r( 18,5),r( 18,6) 

00780 read r(19,1),r(19,2),r( 19,3) ,r( 19,4),r( 19,5) ,r( 19,6) 

00785 read r(20,1),r(20,2),r(20,3),r( 20,4) ,r( 20, 5),r( 20,6) 

00790 read r(21;,1),r(21,2);r(21,3),r(21,4),r(21,5),r(21,6) 

00795 read r(225,1),r(225,2),r( 22, 3) ,r( 22,4), r( 22, 5)5,r( 22,6) 

00800 read r(23,1),r(23,2),r(235,3),r(235,9),r(23,5),rT(23,6) 

00805 read r(24,1),r(24,2),r(26,3),r(26,4),r( 26, 5),r(24,6) 

00810 read r(25,1),r(25,2),r(25,3),r(25,9),r(25,5),r(25,6) 

00815 read r( 26,1),r(26,2),r(26,3),r( 26,49),rT( 26,5),r( 26,6) 

00820 rem 1982 pay data 

00825 data 551.4,551.4,551.4,551.4,551.4,551.4 
00830 data 618.3,618.3,618.3,618.3,618.3,618.3 
00835 data 732.9,732.9,732.9,732.9,732.9,732.9 
00840 data 854.4,854.4,854.4,854.4,854.4,854.4% 
00845 data 1060.5,1060.5,1060.5,1060.5,1060.5,1060.5 
00850 data 1249.2,1249.2,1249.2,1249.2,1249.2,1249.2 
00855 data 1426.5,1522.2,1522.2,1711.5,1711.5,1711.5 
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00860 data' 1616.4,1711.5,1711.5,1902.3,1902.3,1902.3 
00865 data 1844.1,1941.3,1941.3,2130,21230,2130 
00870 data 1596.9,1596.9,1596.9,1596.9,1596.9,1596. 
00875 data 1721.1,1790.7,1790.7,1790.7,1790.7,1790. 
00880 data 1917.3,1986.9,1986.9,2057.1,2057.1,2057. 
00885 data 2180.4,2253.6,2253.6,2428.8,2628.8,2428. 
00890 data 1329.3,1329.3,1329.3,1329.3,1329.3,1329. 
00895 data 1650.6,1650.6,1650.6,1650.6,1650.6,1650. 
00900 data 1685.1,1685.1,1685.1,1685.1,1685.1,1685. 
00905 data 1951.2,1951.2,1951.2,1951.2,1951.2,1951. 
00910 data 2271,2271,2271,2271,2271,22?271 

00915 data 2305.2,2305.2,2305.2,2305.2,2305.2,2305. 
00920 data 2626.2,2626.2,2626.2,2626.2,2626.2,2626. 
00925 data 3034.2 ,3140.4,3140.4,3140.4,3140.4,3140. 
00930 data 3354.3 53349,3349,3849 , 3849, 3849 

00935 data 4176 5417654176 54176 54176541 76 

00940 data 4176 54176 54176 541 7654176 54176 

00945 data 417654176 5417654176 54176541 76 

00950 data 417654176 »4176 4176541 76 54176 

00951 if (ckS='halt') then stop 

00952 if (ck$=‘agg'} then goto 2360 

00953 if (ck$-'gang') then goto 2800 

00955 rem begin individual subprogram 

00960 4:99 

00965 print 'Input paygrade at retirement (e.g. 87» м3» оЗе» о10)." 
00970 input pgs 

00975 if (pg$7'el') then 
00980 if (pg$='e2') then 
00985 if (pgs='e3') then 
00990 if (pgs='eG') then 
00995 if (pgs='eS') then 
01000 if (pgs='e6') then 
01005 1Е (рд$='е7' } then 
01010 12 (р9$='е8'} then 
01015 if (pg$s='e9') then 
01020 if (pg$='wl') then 
01025 if (pgs='w2') then 
01030 if (pg$s='w3') then 
01035 if (pg$='wG') then 
01040 if (pg$='ol') then 
01045 if (pgs='ole') then g=15 

01050 if (pg$='o2')} then g=16 

01055 if (pg$S='o2e')} then g=17 

01060 if (pg$='03') then g=18 

01065 if (рд$='о5е') then g=19 

01070 if (pg$-2'o64') then 9=20 

01075 if (pg$='05') then 9=21 

01080 if (pgs='o06')} then g=22 

01085 if (pg$='o7')} then g=23 

01090 if (pg$='08')} then 4:24 

01095 if (р45:"09") then g=25 

01100 if (pgS='010') then g=26 

01105 if (g=99)} then goto 960 

01110 print ‘Input year of service entry (e.g. 1972).' 

01115 input ys 

01120 if ys«1776 then goto 1110 

01125 print using ‘Average length of service for this paygrade = ##.##'3d(g) 
01130 print'Is this acceptable? if yes type y if no type n.' 

01135 input lo$ 

01140 if (loS='y') then los = dig) 

01145 if (loS='n') then goto 2080 

01150 if (los «20) then goto 2080 
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01155 
01160 
01165 
01170 
01175 
01180 
01185 
01190 
01195 
01200 
01205 


01210 


01215 
01220 
01225 
01230 
01235 
01290 
01295 
01250 
01255 
01260 
01265 
01270 
01275 
01280 
01285 
01290 
01295 
01300 
01305 
01310 
01315 
01520 
01525 
01530 
01335 
01340 
01345 
01350 
01360 
01365 
01370 
01375 
01380 
01585 
01390 
01395 
01400 
01405 
01410 
01415 
01420 
01425 
01430 
01435 
01440 
01445 
01450 
01455 
01460 
01465 
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if (los<22) and (los>=20) then 1=1 

if (los<24¢) and (1^5s»7222) then 1-2 

if (los<26) and (los>=24) then 1=3 

if (los<28) and (los>=26) then 1=4 

if (los<30) and (los>=28) then 1=5 

if (los>=30) then 1=6 

bp=plg>1)} 

cf=1983 

rf=lostys 

print using ‘Projected retirement year = ####';гҒ 
n=rf -cf 

print ‘Salary scale increase is loaded as .055.' 


print ‘Is this acceptable? If yes type y if no type n.' 

input sc$ 

if (sc$z'n') then goto 2000 

if (sc$z'y') then in=.055 

РР=ЬР 

for i=l to n 

Ёр =рржіп 

pp=tp+pp 

next i 

print using ‘Current monthly basepay at retirement grade 25%%%4%.%% "Зыр 
print using ‘Projected monthly basepay at retirement grade =S###2#.##' spp 
print ‘Retirement is currently computed at .025 of basepay. ' 

print 'Is this acceptable? If yes type y if no type n.' 

input 41$ 

if (dl$-'y') then dl-z.025 

if (d1$='n') then goto 2220 

fac =los * dl 

print ‘Retirement ceiling is currently set at .75 of base pay.' 

print ‘Is this acceptable? If yes type y if no type n.' 

input dm$ 

if (dms='y') then dm=.75 

if (dm$='n') then goto 2250 

if (fac»dm) then faczdm 

if (ys>1980) then goto 2030 

ann-fac*pp*12 

print using 'Projected annual retirement pay -S$9893333.9€9',;ann 

print ‘Annual discount rate is loaded as .09.' 

print ‘Is this acceptable? If yes type y if no type n.' 

input dx$ 

if (dx$z'n') then goto 2095 

if (dx$7'y') then di-.09 

print using ‘Average age at retirement for this paygrade = ##.##';f(g) 
print ‘Is this acceptable? If yes type y if no type n.' 

input gos 

if (goS$2'y') then ag=flg) 

if (goS='n') then goto 2110 
if (ag«36) then goto 2110 

if (ag<37) and (ag>=36) then 
if (ag<38) and (ag>=37) then 
if (ag«39) and lag>=38) then 
if (а9<%0) апа (ag>=39) then 
if lag<41) and lag>=40) then 
if (а9<%2) апа lag>=41) then 
if (ag<4¢3) and (ag>=42) then 
if (ag<4¢4) and lag>=43) then 
if (ag<4¢5) and (ag>=44) then 
if (ag<46) and lag>=45) then 
if lag<47) and (ag>=46) then 
if (ag<4¢8) and (ag>=47) then 
if (ag<49) and (ag>=48) then 
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01470 
01475 
01480 
01485 
01490 
01495 
01500 
01505 
01510 
01515 
01520 
01525 
01550 
01535 
01540 
01545 
01550 
01555 
01560 
01565 
01570 
01575 
01580 
01585 
01590 
01595 
01600 
01605 
01610 
01615 
01620 
01625 
01630 
01635 
01640 
01645 
01650 
01655 
01660 
01665 
01670 
01675 
01680 
01685 
01690 
01695 
01700 
01705 
01710 
01715 
01720 
01725 
01730 
01735 
01740 
01745 
01750 
01755 
01760 
01765 
01770 
01775 
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2:14 
2515 
2216 
2217 
2218 
2219 
2:20 
2221 
2222 
2523 
2:24 
2:25 
2227 
2:28 
2529 
2530 


then 
then 
then 
then 
then 
then 
then 
then 
then 
then 
then 
then 
then 
then 
then 
then 


and 
and 
and 
and 
and 
and 
and 
and 
and 
and 
and 
and 
and 
and 


if 
if 
if 
if 
if 
if 
if 
if 
if 
if 
if 
if 
if 
if 
if 
if 
if 


(ag<50) 
(ag<51) 
(ag<52) 
(ag<53) 
(ag<54) 
(ag<55) 
(ag<56) 
(а4<57) 
(а4<58) 
(а4<59) 
(ag«60) 
(а4<61) 
(а4<62) 
(ag<63) 


(ag>=49 ) 
(ag>=50 ) 
(ag>=51 ) 
(ag>=52) 
(ag>=53) 
(ag>=54) 
(ag>=55 ) 
(ag>=56) 
(ад>:57) 
(ag>=58 ) 
(ag>=59 ) 
(ag>=60 ) 
(ag>=61 ) 
(ag»762) 
(ag<64) and lag>=63) 
(ag<65) and lag>=64) 
(ag>=65) then z=31 
if (g«29) then li-e(z) 
if (g>=10) then li=oz(z) 
print ‘Remaining life expectancy from actuarial tables ='3li 

print ‘Is this acceptable? If yes type y if no type n.' 

input ch$ 

if (ch$='n') then goto 1985 

q=(1+di )¥*1i 

pre=ann*((1-(1/q))/di) 

print using ‘Present value of future retirement benefits =S#######.#2' spre 
tz((1l*di)**1os)-1 

nc-pre*(di/t) 

print using ‘Current year individual normal cost =S###2###.##' snc 
print'First year of normal costing? If yes type y if no type n.' 

input nc$ 

if (nc$ -'y') then goto 2195 

Print 'Do you know previous year normal cost? If yes type y if no type n.' 
input pn$ 

if (pns='y') then goto 2015 

print using 'Salary scale Z used in current year normal cost с: .2%2 4% зіп 
print ‘Was this your prior year estimator? If yes type y if no type n.' 
input ss$ 

if (ss$='y') then jn=in 

if (ss$='n') then goto 2310 

h=g 

m-1 

qp-r(h,;m) 

о=п+] 

ХР-=ЧР 

for j=l too 

up=xp#jn 

Xp=up+xp 

next j 

if (ys>1980) then goto 2265 

bnn-fac*xp*12 

print using ‘Discount rate used in current year normal cost = .####'3di 
print ‘Was this your prior year estimator? If yes type y if no type n.' 
input dr$ 

if (drs='y') then ei=di 

if (drS='n') then goto 2325 

print ‘Remaining life expectancy used in current year normal cost ='3li 
print 'Was this your previous estimator? If yes type y if no type n.' 
input dh$ / 

if (dh$s‘y') then mi=li 

if (dh$='n') then goto 2205 

s=(ltei )**mi 
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01780 
01785 
01790 
01795 
01800 
01805 
01810 
01815 
01820 
01825 
01830 
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qre-bnnx((1-(1/s))/ei) 

us((l*ei)**los)-1 

oc=qre*(ei/u ) 

print using ‘Previous year individual normal cost=SRRRRRR. FF 30 
fc=nc-oc 

print 

print using ‘Current year gains or losses 5888  8.22!,Їс 

print ‘Any deferred gains or losses? If yes type y if no type n.' 
input (44945 

if tdgs=‘y') then goto 2235 

if (dg$='n') then gosub 2195 


01835 v=n+tl 


01840 
01845 
01850 
01855 
01860 
01865 
01870 
01875 
01880 
01885 
01890 
01895 
01900 
01905 
01910 
01915 
01920 
01925 
01950 
01955 
01940 
01945 
01950 
01955 
01960 
01965 
01970 
01975 
01980 
01985 
01990 
01995 
02000 
02005 
02010 


02015 


02020 
02025 
020530 
02055 
02040 
02045 
02050 
02055 
02060 
02065 
02070 
02075 
02080 
02085 


х21/((1ж%41)%ғу) 

ap=(fcet+g1)*(di/(1l-x)) 

print using ‘Applied gain or loss =S8####.##' sap 

rc-nc*ap 

if (g<20) then pro=.12 

if tg>=20) then pro=.4 

print using ‘Current year individual retirement cost =SR8##2.#8'3rc 
print using ‘Probability of new entrant retiring = .##8#'spro 

print ‘Is this acceptable? If yes type y if no type n.' 

input prs 

if tprs='n') then goto 1970 

print using'Probability of entrant retiring at target grade - .$9882',fz(g) 
print ‘Is this acceptable? If yes type y if no type n.' 

input fz$ 

if (fz$2'y') then tgt=fzlg) 

if (fz$-'n') then goto 2125 

if (ys>1950) and (ys<1983) then goto 2340 

print'Input number of entrants in initial year of service (e.g. 230000). ' 
input new 

pec-pro*tgtXnew 

print using ‘Target population retiring ##2####% ‘spec 

trc-pec*rc 

print ‘Paygrade at retirement = ‘3pg$ 

print ‘Year of service entry = ‘sys 

print using ‘Current target group retirement cost =S#REHRHIHES FF stro 
goto 5 

print ‘Input your estimate of retirement probability (e.g. .3456).' 
input pro 

goto 1895 

print ‘Input your estimate of remaining life expectancy (e.g. 39.41).' 
input li 

goto 1585 

print 'Input salary scale increase as decimal (e.g. .065). 

input in 

goto 1235 

print ‘Input previous year normal cost (e.g. 1389.24).' 

input oc 

goto 1800 

a=n-2 

rp-bp 

for k=l to a 

vp=rp*in 

гр=ур+гр 

next k 

sp=(in*rp )+rp 

pp=(sp+trptpp )/3 2 

print using ‘Retirement basis for post 1980 entrant 5888 4 8.,348!,урр 
goto 1335 

print ‘Input your estimate length of service at retirement (e.g. 24.8).' 
input los 
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02090 
02095 
02100 
02105 
02110 
02115 
02120 
02125 
02130 
02135 
02140 
02145 
02150 
02155 
02160 
02165 
02170 
02175 
02180 
02185 
02190 
02195 
02200 
02205 
02210 
02215 
02220 
02225 
02230 
02235 
02240 
02245 
02250 
02255 
02260 
02265 
02270 
02275 
02280 
02285 
02290 
02295 
02300 
02305 
02310 
02315 
02320 
02325 
02330 
02335 
02340 
02345 
02350 
02355 
02360 
02365 
02370 
02375 
02380 
02385 
02390 
02395 
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goto 1150 

print ‘Input discount rate estimate as decimal (e.g. 
input di 

goto 1375 

print ‘Input your estimate of age at retirement (e.g. 47.86).' 

input ag 

goto 1400 

print 'Input your probability that entrant retires at selected target' 
print'rank/grade (e.g. .235). 

input tgt 

goto 1920 

print 

print'Deferred gains and losses are the amortized value of differences' 
print'caused by fluctuations in the estimating variables over time.  The' 
print'actuarial model dampens the impact of these fluctuations to a zero' 
print'average over the working life of the individual. Therefore, an’ 
print'entry of zero for this variable does not invalidate the model." 
print 

g1=0 

Ғаз0 

return 

ap=0 

goto 1855 

print ‘Input your estimate of remaining life expectancy (e.g. 42.1).' 
input mi 

goto 1775 

print 'Input desired retirement rate as decimal (e.g. 
input dl 

goto 1295 

print 'Amount of deferred gain or loss (e.g. 
input gl 

goto 1835 

print 'Input desired retirement ceiling as decimal (e.g. 
input dm 

goto 1325 

b=0-2 

YP=4P 

Ғог с=1 to b 

Wp=yp*jn 

YP=Wp typ 

next c 

2р=(јлжур )+ур 

хр=(ур+2р+хр )/3 

goto 1720 


11)! 


.025).' 


11.34).' 


.75). ‚ 


print ‘Input prior year salary scale 7 estimator as a decimal (e.g. .06).' 
input jn 

goto 1670 

print 'Input prior year discount rate estimator as a decimal (e.g. .09).' 


input ei 
goto 1750 
if (g»220) then newz1000*od(ys-1950) 


if (g<20) then new=1000*ed( ys-1950 ) 

print ‘Number of regular entrants in intial year of service =‘ jnew 
goto 1935 

print ‘You are now in the aggregate method portion of this program.' 


rem begin aggregate subprogram 
Pedu i dollar amounts should be input as millions (e.g. $12,332,223.24' 


print ‘should be typed as 12.332). = 

print 

print ‘What is the present value of future benefits? (e.g. 4334.785).' 
input pbe 

print 'What is the present value of future compensation? (e.g. 9127.589).' 
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02400 input pce 

02405 pf-pbe/pce 

02410 print using ‘Normal cost percentage factor as decimal -8.84888"урї 
02415 print ‘Is this acceptable? If yes type y if no type n.' 

02420 input pf$ 

02425 if (pfS='y') then goto 2435 

02430 if (pf$-'n') then goto 2605 

02435 print 'Input current fiscal year total base pay (e.g. 27485.552).' 
02440 input tbf 

02445 mcz-pf*tbf 

02450 print using ‘Current year active force normal cost =S###2##.###' 3mc 
0245S print ‘First year of normal costing? If yes type y if no type n.' 
02460 input an$ 

02665 if (an$-'y') then goto 2650 

02470 print 'Do you know previous year normal cost? If yes type y if no type n.' 
02475 input se 

02480 if (se$z'n') then goto 2490 

02985 If (seS=‘y') then goto 2620 

02490 print ‘Input previous year normal cost 7 factor as a decimal (e.g. .432).' 
02495 input qf 

02500 print ‘Input previous year total base pay (e.g. 22432.518).' 

02505 input ubf 

02510 ve=qf*ubf 

02515 print using ‘Previous year normal cost =St8###.#88' svc 

02520 wc-mc-vc 

02525 print using ‘Current years actuarial gain or loss =SR8882.8##8' swe 
02530 print ‘Any deferred gain or loss? If yes type y if no type n.' 
02535 input dg$ 

02540 if (dg$S=‘y') then goto 2635 

02545 if (dgs='n') then gosub 2145 

02550 print ‘Input discount rate as decimal (e.g. .112).' 

02555 input gi 

02560 9іѕ=(1+91 )%ж%20 

02565 gist-l/gis 

02570 hist=l-gist 

02575 blip=gi/hist 

02580 fa=(werfd)}*blip 

02585 print using ‘Current year gains/losses applied =S###.%82' ;fa 

02590 trc-mc*fa 

02595 print using 'Current year total retirement cost -S9*983438.9982',trc 
02600 goto 5 

02605 print ‘Input override normal cost Z factor as decimal (e.g. .553).' 
02610 input pf 

02615 goto 2435 

02620 print 'Input previous year normal cost (e.g. 4123.237).' 

02625 input vc 

02630 goto 2520 

02635 print ‘Input amount of deferred gain or loss (e.g. 1213.456).' 
02640 input fd 

02645 goto 2550 

02650 fa=0 

02655 goto 2590 

02700 rem multiyear expanded individual normal cost subprogram 

02800 print ‘You are now in the multiyear expanded individual normal cost ' 
02805 print ‘portion of the program. Note that in this section an answer to' 
02810 print ‘an adjustment question of O means no change. ' 

03000 Print ‘Input desired discount rate as decimal (e.g. .08). 

03005 input di = 

03010 print 'Input desired rate of salary increase as decimal (e.g. .055). 
03015 input in 

03020 print ‘Input desired 4 rate of retired pay per year of duty (e.g. .025)' 
03025 input dl 
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03030 
03031 
03032 
03033 
03040 
03041 
03042 
05045 
05046 
05047 
03048 
03050 
05055 
05060 
05065 
05066 
05067 
05068 
05069 
03070 
03075 
03080 
03085 
03090 
03095 
03100 
03105 
03110 
03115 
03120 
03125 
03130 
03135 
03140 
03145 
03150 
03155 
03160 
03165 
03170 
03175 
03180 
03185 
03190 
03195 
03200 
03205 
03210 
03215 
03220 
03225 
03230 
03235 
03240 
03245 
03250 
03255 
03260 
03265 
03270 
03275 
03280 
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print ‘Input desired maximum Z of pay basis at retirement (e.g. .75). 
input dm 

print 'Input minimum los required to retire (e.g. 20). 

input mrt 

print 'Input adjustment to entrant retirement probability for officers' 
print '(e.g. -.02). The baseline value is 0.4. 

input pror 

print 'Input adjustment to entrant retirement probability for' 
print 'enlisted personnel. 

print ‘le.g. -.02). The baseline value is 0.12. 

input prog 

print ‘Input adjustment to LOS and age at retirement (e.g. -2). 
input adj 

print 'Input adjustment to life expectancy at retirement (e.g. +3). 
input long 

print'If you wish to see only summary totals, type sum.' 

print 'If you wish to see full detail, type detail.' 

input c$ 

delt-1 

4299 

4424254!) 

ys=1953 

pgs=‘el’ 

print 38O888000OOO00OOOOOOOOOOOOOOOOOBOOOOOO/BOOOO.O7O|ee]a]/]|/O/O]dO|)c JIdd/dD* ' 
4їсс:0 

if (pg$-'el') Хїеп 4:1 

if (pg$='e2') then g=2 

if (pgs='e3') then g=3 

if (pg$='e¢') then g=4 

if (pg$='e5') then g=5 

if (pg$='e6') then g=6 

if (pgs='e7') then g=7 

if (pg$2'e8') then g-8 

if (pgs='e9') then g=9 

if (pgS='wl') then g=10 

if (pg$='we') then g=11 

if (pgS='w3') then g=12 

if (pgS='w4') then g=13 

if (pg$='ol') then g=14 


if (pgS='ole') then g=15 
if (pgs='o2') then g=16 
if (pgS='o2e') then g=17 
if (pgs='03') then g=18 
if (pgS='o3e') then g=19 
if (pg$='o¢') then g=20 
if (pgs='05') then g=21 
if (pg$-'o6') then g=22 
if (pg$='o7') then g=23 
if (pg$='o08') then g=24¢ 
if (pgs='o09') then g=25 
if (pgs='01l0') then g=26 


if (9= 


99) then goto 3070 


los=d(g )tadj 
if (los <mrt) then los=mrt 


if (los<22) and (los>=20) then 
if (los<24¢) and (los>=22) then 
if (los<26) and (los>=24) then 
if (los<28) and (los>=26) then 
if (los<30) and (los>=28) then 


E ee oe e 
uw ug nu и 
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15 (los>=30) then 1=6 
bp=plg>1) 
cf=1983 
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03285 rf=lostys 

03290 n=rf-cf 

03295 pp=bp 

03300 for i=l ton 

03305 tp=pp*in 

03510 рр=+р+рр 

03315 next i 

03320 fac =los * dl 

03325 if (fac»dm) then fac-dm 

03330 if (ys>1980) then goto 3650 

03335 ann-fac*pp*12 

03340 if (pg$='el') then goto 3600 

03345 if (n«0) then goto 3710 

03349 if (dlg)tadj<mrt) and (mrt>20) then goto 3706 
03350 ag=flg)tadj 

03355 if (ag<l7tmrt) then ag=17+mrt 
03360 if (ag<37) and (ag>=36) then 

03365 if (ag<38) and (ag>=37) then 

03370 if (ag<39) and (ag>=38) then 

03375 if (ag<40) and (ag>=39) then 

03380 if (ag<41) and (ag>=40) then 

03385 if (ag<42) and (ag>=41) then 

03390 if (ag<43) and lag>=42) then 

03395 if (ag<44) and (ag>=43) then 

03400 if (ag<45) and (ag>=44) then 

03405 if (ag<46) and (ag>=45) then 

03410 if (ag<47) and (ag>=46) then 

03415 if (ag<48) and (ag>=47) then 

03420 if (ag<49) and (ag>=48) then 

03425 if (ag<50) and (ag>=49) then z=14 
03430 if (ag<51) and (ag>=50) then z=15 
03435 if (ag<52) and (ag>=51) then z=16 
03440 if (ag<53) and (ag>=52) then z=17 
03445 if (ag<54) and (ag>=53) then z=18 
03450 if (ag<55) and (ag>=54) then z=19 
03455 if (ag<56) and (ag>=55) then z=20 
03460 if (ag<57) and (ag>=56) then z=21 
03465 if (ag<58) and (ag>=57) then z=22 
03470 if (ag<59) and (ag>=58) then z=23 
03475 if (ag<60) and (ag>=59) then z=24% 
03480 if (ag<61) and (ag>=60) then z=25 
03485 if (ag<62) and (ag>=61) then z=27 
03990 if (ag<63) and (ag>=62) then z=28 
03495 if (ag<64) and (ag>=63) then z=29 
03500 if (ag<65) and (ag>=64) then z=30 
03505 if (ag>=65) then z=31 

03510 if (g<=9) then li=el(z) 

03515 if (g>=10) then li=oz(z) 

03520 li-li*long 

03525 qz(1*di)**1li 

03530 pre=ann*( (1-(1/q))/di ) 

03535 t=( (1+di )**los )-1 

03540 nc=pre*(di/t) 

03565 rc-nc 

03548 if (g>=20) then goto 3555 

03550 if (g<20) then pro=.12 

03552 if (g<20) then prop=prog 

03554 goto 3560 

03555 if (g>=20) then pro=.4 

03556 if (g>=20) then prop=pror 

03560 pro=( pro+prop )¥delt 

03562 delt-1 


өн 0 00 чо \л LWP = 


HR NN N NN NHNHNHNHHHMN 
[L| 
ә һа 
WN >= © 


N 
и 


124 


05565 
05570 
05575 
05580 
05585 
05587 
05590 
05595 
05600 
05601 
05605 
03610- 
03615 
03616 
03617 
03618p 
03620 
03625 
03630 
03635 
03637 
03640 
03645 
03650 
03655 
03660 
03665 
03670 
03675 
03680 
03685 
03690 
03695 
03700 
03705 
03706 
03707 
03708 
03709 
03710 
03715 
03720 
03725 
03730 
03735 
03740 
03745 
03750 
03755 
03760 
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03770 
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03795 
03800 
03805 
03810 
03815 
93820 
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tgt-fz(g) 

if (ys>1950) and (ys<1983) then goto 3695 
pec7pro*tgt*new 

trc-pec*rc 

ttrc-ttrc*trc 

if (c$='sum') then goto 3595 

print using 'THHUBERTHERREEHER ' ;pg$Sync;trc 

goto 3725 

print 'Year of entry = ‘3ys 

if (c$='sum') then goto 3645 

print ‘Discount rate ='"3di 

print ‘Salary scale estimator - 'jin 

print ‘Adjustment to entrant retirement probability for’ 
print ‘officers = ‘3pror 

print ‘Adjustment to entrant retirement probability for' 
rint ‘enlisted personnel = ‘3progq 

print ‘Adjustment to LOS and age at retirement = ';adj 
print ‘Adjustment to life expectancy at retirement = ‘slong 
print ‘Retirement pay basis per year of service = ‘3dl 
print ‘Retirement pay ceiling as percentage of basic = '3dm 
print ‘Minimum los for retirement - 'jmrt 

print 'Paygrade Normal Cost Total Cost' 

goto 3345 

a=n-2 

rp=bp 

for k=] toa 

Vp=rp*in 

гр=ур+гр 

next К 

spz(inxXrp)*rp 

РР=( $р+гр+рр }/5 

goto 3335 

if (g>=20) then new=1000#0d( ys-1950 } 

if (g«20) then newz1000*xed( ys-1950) 

goto 5575 

agzf(g)*mrt-d(g)-adj 

REM FORMULA TO AJD ATTRITON IF AVG LOS « MLOS FOR RETIREMENT 
DELT21.003*( MRT-D( G)-ADJ) 

goto 3355 

пс=0 

tre=0 

goto 3585 

if (pg$z2'olO') then goto 3845 


if 
If 
if 
if 
If 
if 
11 


(pg$2'o9') then 
(pg$72'08') then 
(pgs='o7') then 
(pg$z'o6') then 
(pg$='o5') then 
(pg$2'o4') then 


pg$ŝ='010' 
рӯ$= '09' 
рӯ$='08' 
рӯд$= '07' 
Ppg$-'o6' 
pgs='o5' 


(pg$z'o3e') then pg$7'o64' 
(pg$2'o2e') then pgs='o3e' 
(pg$='ole’) then pg$='oZe' 


if 
if 


if 
if 
ТЕ 
if 
if 
if 
i£ 
if 
if 
if 


(pg$2'wu4') then 
(pg$='w3') then 
(pg$23'w2') then 
(pg$-2'w1') then 
(pg$72'e9') then 
(pg$2'e8') then 
(pg$2'e7') then 
(pg$z2'e6') then 
(pg$2'e5') then 
(pg$2'e4') then 


pgs='ole' 
pgS='wS' 
pgs='w3' 
pgS='w2' 
pgo='wl' 
рд$='е9' 
pg?-2'e8' 
pg$='e7' 
pgs='e6' 
р4$='е5' 
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03830 
03835 
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03845 
05850 
05855 
05860 
05865 
05870 
05875 
03880 
03885 
03890 
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if (pgS='e3') then pg$='e4' 

if (pg$='e2') then pg$='e3' 

if (pgs='el') then pg$='e2' 

goto 3100 

print using ‘Total Year Group Cost = S$R##888#8#848'sttre 
tttre=tttretttre 

if ys=1982 then goto 3870 

ys=ys+l 

goto 3085 

print 39008000800000000000000)0)00))O0O0C(OODIOODUOOOOOOGQOQIUODOOOODOOOOPODOOO|OOPOOp|O|) ‹ 


print using 'Regular Navy Cost = 58888828 841 27282328 02825 !)4816гс 

print 390000000000000000)00000)OODOOOOOOOOOOOOOOOY/OOX|OO)OOPOOOODOOC(OOO!|Op!|O!O|ee ' 
goto 10 

end 
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